Yor.G Ne. H/I1Z , en OctoBER 3!1,1¢ BF 


RETIRING ???7 Yes, we are going to close down the presses with this issue, 

primarily because there isn’t enough interest left out there to make it work. 
New subscribers are coming in at an ever decreasing rate, and we usually have 
onty a 58% renewal rate, so the group gets ever tighter. Only a miniscule 
percentage of subscribers have been contributors - when we had thousands of 
subscribers that percentage was enough, but now with onlu a few hundred 
subscribers, there are too few to fill the Newsletter. 
I might editorialize a bit on Mike Prosise’s questions in his Game Player 
article. While there are tens of thousands of Arcade games out there, the 
distribution system has dropped to zero. This means that the stores, the 
outlets for sales of cartridges or tapes, have disappeared. How else can a 
manufacturer of a program communicate with the consumer? The only alternative 
is advertising - we collectively did some of that in Electronic Games - but it 
is very expensive for the little guy to do. And returns are really quite low. 


CREDIT MISPLACED when we said that Rusty Blommaert had done the American Flag 
program of p.76. Tit was actually done by Barry Ellersoan of S@17 N.River Rd, 


Schiller Park, IL, 66176. Rusty did have a hand in the 4D2 program in this 
issue. - 


ERRATA in Gas Well Bonanza, (p.85). We neglected to tell you about the 
variables: . 


S=RND(53)-63; T=RND(54)-19; P=1; U=12; V=102; FOR A= 1 TO 4; *CAI=SBH; NEXT 
A 


Joe will put his program on your tape for $5, using his RShack CTR-&@ machine 
(but no guarantee that his recorder is compatible)? check his address on p. 85. 


The following check list of company-produced cartridges wil! help you to 


determine if you have a complete set. Even so, 2820, 3885, 3887, 4993, 49405, 
and 5864 never made production. 


Stock a Stock 
arraigned anette Number Description 


MRO N/SKILLS SERIES 3006 Bowling 
- 2001 280 ZZZAP/Dodgem 3007 Soccer 

2002 Seawolf/Missle me 

2003 Panzer Attack/Red Baron Bingo Math/Speed Math 
2004 ~— Brickyard/Clowns Letter Match/Spell 'N Score/ 
2005 Star Battle Crosswords 

2009 = Astro Battle Music Maker 

2010 Dogpatch Biorhythm 

2011 Galactic Invasion Creative Crayon 


2012 Space Fortress iHien Detb Creative Crayon with Light Pen 
2014 Grand Prix/Demolition Derby - ATEGY SERIES= 


2015 _—Pirate’s Chase 5001 Amazing Maze/Tic-Tac-Toe 


2017 The Incredible Wizard (tike wizard of Wor | 
ike Asteroi 5002 Blackjack/Poker/Acey-Ducey 
2018 Solar CONQUELOF (Like Asteroids) haa Seid eles ollode 


2019 Cosmic Raiders (ike Defenders) 5005 Artillery Duel 


2020 Missile Attack 
Seedy els 6004 Astrocade BASIC System 
$006'SPORTS SERIES ACI-0200 Hand Controls set ot 2 


CF) 3001 Baseball/Tennis/Hockey/Handball ABA1000 Astrocade, tne Professional Arcade 
C1 3002 Football Antioaastes aasit Ganiridge 8 Audie interface 
(1 3005 Astrocade Pinball are included at no extra charg 
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MAZE AVENGER 
BY DALE LOW 


LOWERCASE = 1-BYTE KEYPAD WORDS. UNDERSCORES 


= SPACES. 1750 CHARACTERS 
1 P=0;2=3;L=Z3W=2;U=2 
2 Y=-10;X=0 
3S clear 3%(D)=-9999 
6 box 0,-5,150,76,13box 0,-5,145,70,2 
7 box 0,-30,2,20,1;box 0,-20,28,2,1;box 0,10 


32520, 13 box 0,20,28,2,1 

8 box -37,7-10,47,2,13 box 36,-10,47,2,1:box 5 
9,715,2,12,1:box “597, -15,2,12,1 

9 box ~14,0,2,20,13 box 14,0,2,20,13box -30,2 
53y2,10,1: box 30,25,2,10,1 

10 box ~30,5,2,10,13 box 30,5,2,10,13box -36, 
10,14,2,13box 36,10,14,2,1 

11 box -62,0,25,2,13box 62,0,25,2,1;box -53, 
20,14,2,13box 53,20,14,2,1 

12 box -59,15,2,10,13 box 597,15,2,10,13;box -5 
1,-30,16,2,13 box 51,7-30,16,2,1 

14 box -44,-25,2,10,13box 44 ,-25,2,10,1 

15 box -29,-25,2,10,1;box 29,725,2,10,13 box 

-23,-30,14,2,13 box 23,7-30,14,2,1 

20 for A=Oto Z3*(A)=rnd (9) snext A 

21 for A=Oto Zstep 2;@(A)=rnd (10)x15-982 

22) @(A+1)2rnd (77X10-435:next A 

23 for A=0to Zstep 23 CX=@(A) sCY=@(A+1) 3 TV=99 
trnd (4)snext A 

90 for Q=ito 25 X=X+( (IX (1) =1) x (PX (X44, Y) =) ) 
—((IX(1)=-1) x (PX (X-4,Y) =0) ) 

100 YEV+ ( (JY (1) = 1) x (PX (X,¥#4) 50) )-( (JY (1) s-4 
)x (PX (X,Y-4)=0) )snext @ 

105 K=K+l;if K>129K=128 

106 %(S)=kK 

110 gosub 111;goto 169 

111 if Y>26Y=26 

112 if X>68x=68 

113 if X<-68xX=-68 

120. if Y<-37Y=-37 

130 H=X+765 VEABS (Y-40) 5 %(C) =Vx256+Hs CALLB3 % ( 
D)=%(C)3%(T)=% (8) sreturn 

169 MU=10sif rnd (30-U) =1goto 700 

170 if TR(1)=0goto 90 

180 MUS=@B3F=JY (1)x3;G=0X (1) x33 1=X+63 JV+F3 fo 
r Q=1to 80 

230 I=1+G6x23 J=J+Fx2 

235 for A=0to Zstep 2 

256 if #(A)IF I+7>@(ADIF T-7<¢@(A)iF J+5>@ (A+ 
1)if J-5<@(A+1) goto 500 

237 next A 

240 box 1,J,2,2,3;box 1,J,2,2,3 

250 if (PX(1T,J))+(PX(1+2,3) ) +(PX (1-2,3)) +(PX 
(1,J+2))+(PX(1,J-2) )Q=81 

260 next Q;MU=82; MU=85: goto 90 
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500 for M=99to B0step ~23 MU=M3 MU=M+23 MU=M+4: 
next M 

505 box @(A) ,@(A+1) ,10,8,23 CX=@(A) sCY=@ (A+) 
3 TV=* (A) +48 

510 P=P+#(A)3#(A)=03 for MEito 500:next M3 box 
@(A) ,@(A+1) ,10,8,2;WaW-1si¢ WROgoto 530 

520 UEU+ (USS) 5 2=Ux 2-15 WEU; P=P+27; for A=79to 

993 MU=A; MUSA+23 MU=A+4: next Azsgoto 20 

530 CY=405CX=03 print #0,P3Q=81:goto 237 

700 NT=9 5; MU=83; MU=733 MU=63; NT=1 

710) M=7)N=5; Azo 

720 AFAt1;iF¢ A>2S5goto 90 

730 M=M+ (rnd (3)-2) x14: N=N+ (rnd (3)-2) x10 

740 M=M+ (M<—65) x 14— (M565) x14 

745 N=N+ (N<=35) x10=(N>25) x10 

750 box M,N,5,5,33box M,N,5,5,3 

770 X=X+JX (1) x93 YEY4IY (1) x93 gosub 124 

790 if M>X-29i¢ M<X+29i1¢ NCY+29i ¢ N>Y=-29f or 

Q=1to 2:line M,N,Osline X,Y,33next Q;L=L-13g0 

to (L#0)x800+90 

795 goto 720 


INPUT THE FOLLOWING DATA ARRAY 
%( = =20237)= 8669 
4( 20239)= 20258 
%( = 20241)= -43 
%¢ 20243)= 26163 
%( §20245)= 10298 
4( = 20247)= 128 
4¢ 20249)= 13311 
“2¢ 20251)= 14950 
%( = 20253)= -32728 
4( =20255)= -12032 
%( 20257)= -32567 
4( 620259) = 0 
“%( =20261)= 1537 
4( 20263)= 20265 
%( 20265)= 7492 
4( 20267)= 16141 
%( 20269)= 4652 
4( 20271)= 7692 
%4( 20273)= 16172 
4( 20275)= 4621 
4( 20277)= -223 


AFTER ENTERING THE PROGRAM AND THE DATA ARRAY 


PRINT THE WHOLE THING TO TAPE LIKE THIS: 
PRINT “*%(162864) 3 2000 
THIS WILL SAVE YOUR DATA TOO. 


Dale Low 
2025 Cook ST 


VieteriA BC 
WET 3589 
CANADA 
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1 Q=@;CLEAR ;NT=@;CX=-38;CY=@;PRINT “LIZARD LUNCH";FC=34; BOX &@,0,149,25,3;F0R A 
=8TO 1988;&(1@)=A;NEXT A | 
2 IF TRC1INT=8;GOTO 722 
3 GOTO 2 
19 CLEAR ;BC=8;FC=149;S=8;T=5 
11 BOX @,@,1588,8@,3;BOX 3,4,156,76,3 
12 CX=30;CY=38;PRINT "FLY # 
13 CX=38;CY=-18;PRINT “TIME: 
26 BOX 44,4,4,14,1;BOX 43,G,2,18,3;BOX 47,0,14,6,1;BOX 56,4,14,14,1;BOX 68,4,2,1 
B,1 
21 BOX 41,1,2,1,3;BOX 41,-2,2,1,3;BOX 39,9,1,4,1;BOxX 58,2,8,8,2 
22 BOX 58,8,18,4,1;BOX 65,8,20,2,1 
34 LINE 38,8,4 7 
49 X=JX(13b30-3G; Y=KNC 1 3c B4b3 
5Q IF TRCLIMU="a";LINE X,Y, 3;LINE 38,9,3;LINE X,¥,3;LINE 38,8,3;1F X=HIF Y=VGOSU 
B 55a _ 
6@ T=T-1;IF T<1GOSUB 5ag 
7@ J=RND (10)+75;mMU=J 
71 Q=G+1;IF Q@>2B@aGOTO 65a 
72 IF S>2@NT=1G;MU="t";MU="*_"*;NT=S8;MU="a";NT=8;GOTO 6aa 
82 GOTO 4a . | 
S@G BOX H,V,12,12,2;H=RND (3)3b3@-90;V=RND (3)63G-SQ;T=RND (P41) 
SHi BOX H,V,3,9,1;BOX H,V,1,11,3;BOX% H,V,11,1,1;BOX H+5,V,2,3,3; RETURN 
SS@ M=12;FOR A=MTO 1STEP -1;FC=RND (19)b18;BOX %,Y,M,M,3;BOX X,Y,M,M,2;MU=M; M=M-. 
L;NEXT A3FC=148;S=S+1 
551 CX=10;CY=18;PRINT S;GOTO 52a 
6G@ CX=198;CY=-3@;PRINT @;CX=-3@;CY=2;PRINT "GAME OVER"; BC=a;BO% @,8,168,9a,2 
61 IF TRC1)FOR A=1L8B@TO BSTEP -1;%€18)=A;NEXT A:RUN 
542 GOTO 6Al . 
658 CX=-48;CY=15;PRINT “DEAD LIZARD! ";BOX 42,-8,48,18,2:EGX 41,1,2,1,23;Go0To Ean 
720 FOR A=1LE@TO BSTEP -1:&(1@8)=A:NEXT A 
741 CLEAR ;FC=197;BC=7;CX=-69;CY=38;PRINT “ENTER DIFFICULTY 
722 BOX @,39,168,20,3 
703 CX=-48;CY=15;PRINT "1-MONITOR LIZARD 
704 CX=-48;CY=6;PRINT "2-SALAMANDER 
7@5 CX=-48;CY=-3;PRINT °3-TADPOLE 
706 FOR A=8TO 188;&(18)=A;NEXT A 
787 P=KN(1)c94+2 
708 IF TRCLINT=1;GOTO 1g 
703 CX=-78;CY=-35;PRINT P 
710 GOTO 7a7 
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GOSUB 3E&:CLEAR :GOTO 7a 

BOX X¥,Y,i11,11.1;BOX X,¥,9,9,2; RETURN 

BOX %,Y,1,1,13; RETURN 

BCX ¥+2,Y+2,1,1,1;BOX X-2,¥Y-2,1,1, 

GOSUB 4;GOSUB 5;RETURN 

GOSUB S:BOX X-2,Y+2,1,1,1;BOX X+2,Y-2,1,1,1;RETURN 

GOSUB 7;GCSUB 4;RETURN 

GOSUB 7;BOX X,Y+2,1,1,1;BOX %,Y-2,1,1,1;RETURN 

%=-43;Y=35; FOR N=1TOQ S;A=RND (8)43;@CNI=A: IF @CN+6)X=K+173 NEXT N; RETURN 


GOSUB 3:GOSUB A;X=%+17;NEXT N:RETURN 
B=RND (8);FOR M=1TO B;GOSUB 1@;NEXT M;RETURN 

IF R>-SQIF R<-35X=-43:GOSUB 24;GOSUB @(1);@(73=1;U=1;GOSUB 21 

IF R>-SSIF R<-16X=-25;GOSUB 20;GOSUB @(2);@(8)=1;U=2;GOSUB 21 

IF R>-1BIF R<BX=-8;GCSUB 20;GOSUB @(3);@(9)=1;U=3;GOSUB 21 

IF R>BIF R<L7X=9S;GOSUB 28;GOSUB @(4):@(18)=1;U=4;GOSUB 21 

IF R>I7VIF R<3SBX=26;GOSUB 28;GOSUB @(5);@(C11)=1;U=5;GOSUB 21 

IF R>oSSIF R<49X=43;GOSUB 28;GOSUB (6);@(12)=1;U=6;GOSUB 21 

RETURN 

Y=B5;BOX X,¥,12,12,2;Y=15;GOSUB 3;RETURN 

IF @(UJ=8U=58 In means ¥ 
IF @(U)=4V=188 


GOSUB 25;CX=43:5=S+VU;PRINT #@,S;RETURN 
CY=-(F-1 3b8-S; CX=-4; RETURN 

Z=29G;IF P=1FC=137;G=G+S;GOSUB 25;PRINT #4,6,;IF G>DGOTO Z 

IF P=2FC=24@G;H=H+S;GOSUB 25;PRINT #4,H,;IF H>DGOTO Z 

IF P=3FC=89;1=1+S;GOSUB 25;PRINT #4,1,;1IF I>DGOTO Z 

IF P=4FC=187;J=J+S;:GOSUB 25;PRINT #4,3,;IF J>DGOTO Z 

PRINT "_UP";RETURN 

FOR Z=77TO 12;@(€Z)=@;NEXT Z;RETURN 

CY=-37; RETURN 

GOSUB 32;PRINT " TO ROLL DICE PUSH JY UPt";RETURN 

GOSUB 32;PRINT " USE TRIGGER TO SAVE DICE";RETURN 

GOSUB 22:PRINT ”* YOUR OPT. TO ROLL AGAIN";RETURN 

NT=13;FOR Z=-24573TO -24538;MU=%(Z);NEXT 23;NT=@; RETURN 

BOX R,G,.20,8,2;BOX R,G,1,6,1;LINE R-3,Q,4;LINE R,Q+3,1;LINE R+3,0,1 
IF R>49B0OX R,Q,15,8,2;R=-49 

RETURN 

BOX @,26,12G,35,2;RETURN 

GOSUB 32;INPUT "“INPUT1-6 TO SCORE 3 DIE"“K;IF K=1V=708 

IF K=2U=288 

IF K=3U=332 

IF K=4U=482 

IF K=5V=356 

IF K=6GU=62a 

GOSUB 24;VU=4;GOSUB 32;PRINT “ NOW MOVE THE DICE DOWN °;RETURN 
P=P+1;G0SUB 44;T=@;C=@:S=@;BOX 44,-17,55,32,2;GOSUB 31;GOSUB 33;IF P>L P=1 
RETURN 

P=]; C=@; G=@;H=G; I=G; J=@;S=@8; GOSUB 31; D=4S99; T=@; @=25; BC=5 

Cv=G; INPUT “**#NUMBER#OF PLAYERS? "L;IF L>4L=4 

CLEAR :CY=-5;FOR N=1TO L;PRINT "“aPLAYER #",4#8,N,":"3;NEXT N 


194 CY=5:CX=-5;PRINT "TOTAL PRESENT";GOSUB 26;GOSUB 33 


IF JYCP)=1BOX @,31,120,19,2;GOSUB 12;C=1;GOSUB 34 


126 IF JxXCP)=1GOSUB 52;GOSUB 26 
125 IF TROP3IT=T+1;GOSUB 13;1F T=ST=@;GOSUB 44;GOSUB 37;GOSUB 31;C=@;GOSUB 38 
134 IF JY¢P)=-1BOK R,Q,9,8,2;GOSUB 45 


@ IF JX(P)=-1GOSUB Z26;GOSUB 52;GOSUB 25 


R=R+4;GOSUB 4@;IF CGOSUB 39 


162 GOTO 11@ 


6 GOSUR 44:CY=35;PRINT “ GAME OVER PLAYER #",#@,P," WINS";GOSUB 38 
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CRAZIE DICE RULES 


This is a game of chance, stratepy, and greed. The. object 
is to be the first player to reach 5,000points. 
You start by rolling six dice. If you don't get a pointer 
(a one, a five, or three of a kind) on the first or subsequent 
roll(s} you must pass the play to the next player without adding 
your present score to your totale You must save at least one 
pointer on each roll of the dice. If you get pointers on all 
Six dice, you have the option to roll again (greed) but remember 
any time you roll again and don't get a pointer you must pass 
play without adding to your totale Three of a kind need not 
be side by side, but must be on a single roll of the dice. 
Two to four players. Different colors for each player. 


Trigger: Moves a die from the top sea iba dice 


you roll) to the bottom row (the dice 
you save . 
Joystick: 
Rolls dice 


V nen 


Adds present score ts j |. Passes play to next 
total and passes play +r player without adding 
to next player present score to total 
Adjust score for 
Saving 3 of a kind 
(do this before moving 
dice down 


Point value: Af] =50pt. 
Af-]=100pt. 
3f)}=1000pt.  3f'/=200pt. 
3£7=300pt. 3f] =,00pt. Etc. 


Extra 2's,3's,4's,6's don't count 
extra points. 


An optional rule for crazie dices: We call it "getting 
on the board", Simply, your present score must be 500 or more 
before you can add it to your total. After that, your "on the 
board" and may save any amount less than or greater than 500 
if you choose. 
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We've done a lot of basic program- 
ing and maybe even a little machine 
language. So, what's left? Is there any 
thing else I can do with my computer? 

YOU BET!! There is no reason whv 
your Astrocade could not be controlling 
ea robot, guarding your home, or talkin;. 

Of course, these projects would 
require considerable experience with 
electronics, mechanics, and machine code 
to bring them about. But that doesn't 
mean we cant learn what it's all about. 

One thing that we were blessed 
with is our microprocessor is a Z-80. 
This MPU is especially suited for this 
sort of thing. Another is the expansion 
bus in the back of the machine. These50 
connections provide us with everything 
we need,to do any thing we want. 

If this. sounds simple, it isn't. 
But,in a while, you will, 
stand it. 

Now, DON'T go probing around with a 

punch of wires to see what might hapven. 
You could aimed damage your machine, 
permanently!! The purpose of this series 
is to try exclaining the use and operat- 
ion of these control lines, 
and data lines and to,eventually, put 
them to usee So lets get started. 

First off, IF statements are a form 
of logic that control the flow of a pro- 
gram, that is, true/false, on/off, And 
if you've, at least, played with machine 
code, you should be aquainted with "L's 
and "O"'s, This same form of logic is 
what controls the “hardware" connected 
to our Z-80 MPU. But how are "1"'s and 
‘'O"!s transmitted along copper lines? 

Just as 3 volts will power a flash- 
lights 110 volts would burn out the 
pulb, instantly, the signals to and 
From the computer have to be within cer- 
cain voltage parimeters. There are seve 
eral families of logic which are separ- 
ated mainly by differing voltage 
ments for their signals. I won't 
to discuss all of these, only to 
pare two of these families. 

These two happen to be the most 
sommon:TTL (transistor/transistor logic) 
and C/MOS ( (Complementary metal oxide). 


@1qe4 RFabn's 


attempt 
com- 
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require- 
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C/MOS requires maximum 1.5 volts 
for logic "0" and minimum 3.5 volts 
for logic "1". 

TTL requires 0.4 volts maximum 
for logic "0" and 2.4 volts minimum 
for logic "1", To make this easier, 
let's concern ourselves with just 
TTL and forget the rest for now, 

TTL has specific voltage 
parameters that represent these 
logic levels “0” low and "1" high 
as shown by this chart: 
















LOGIC EVEL MiNIAM | MAXIMUM. V,, 
Meek wie . VOLTS| ( On VOLTS 
i |HIGH Da VOLTS|5,0 VOLTS 
PG BL Chis [te prospective, 


let's teke an example from page 90 
of your _Bally Basic Manual. Look 
at #14,RD which is one of the con- 
tacts of our expansion bus. This is 
the read line and it is connected 
to the Z-80, various components 
inside the Astrocads and any exten- 
ded memory you might have attached. 
This line is used for various 
reasons and at various times during 
the execution of a program. Cne of 
which is "reading memory. When data 
is requested from a memory location, 
this RD line swings from a highf1' 
to an active low “O". This then be- 
comes the necessary signal for the 
memory chips to pass the data along 
to the data bus. The data bus, by 
the way, are lines DO thru D7 which 
hold the 8 bits that represent O to 
255 decimal. (Send SASE for free 
convertion chart). The bar over the 
top of RD means that this signal is 
active low or that RD will only go 
low during a read operation. This 
is exactly how memory distinguishes 
a read from ea write operation, 


RD| LOW DURING A READ | 


er ae ee ne tee 2 +. 





exe Se Gs will further dis- dis- 
cuss the expansion bus and, hoveful- 
ly, understand it. For now, remember 
the two charts above. I'd appreciate 
questions or answers, projects or 
ideas from experts and novices alike. 
Ed Horger 
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Y=e(CR-1)cS 1bG-K; X=CRM+1 bB-12 
( CX=X%;GOSUB 25;CY=YckbZ2+Y; RETURN 















BOX V,W,C,C,S;1F CX#U)+CY#WMU=T This 4s a computerized version of a game produced by Parker Brothers. An article 
RETURN in Creative Computing (Feb., 1980) discussed the game for a PET program. 

as) =) ra Pm: . 

cides phi Sea VEAT i lonetaia How the aame is plaved: The black box is an 8x8 grid. At the beginning of each 
R=A;GOSUB 1;GOSUB Si RETURN game, the computer locates 5 balls ({.e., obstacles), one in each of 5 randomly 
MU=J;L=lL-1;GOTO 739 selected squares. The balls are invisible to the player. 

BOX &,7,0,C, 34 U=Xe WHY; RETURN The object of the game is to determine the locations of the 5 balls 

B=(Y+K Jc BbS+CX4+12 3083 RETURN least amount of information possible. 

WEL TS) 1 The player obtains information about the location of the balls by sending a 

IF ABS(DI=1D=S;F=1; GOTO 15 probe into the box at one of the 32 edge squares, and observing its behavior: 
D=1;F=S;GOTO 15 it may emerge at another edge square, be reflected back to the square the probe 


entered, or be absorbed. Based on these observations and the rules for how 


Dev = =—-CePa}t 
IF ABS D)=1D=-S3F=15G0TO 15 probes move, the player can deduce the location of the 5 balls. 


D=-1;F=S 
B=E:GOTO 254 

FOR R=1TO H;IF @(R)IGOSUB 1;C=7;GOSUB 8;MU=J;IF U>@IF PX(X,Y)=GQ=0+5 

NEXT R;PETURN 

%=-4; Y=K; RETURN BLACK BO 
CY=@; CX=-75; RETURN 

R=B;GOSUE 1;GCSUB 5;IF A=B TV=43;GOTO 7 


TV=LiGCTO 73 Steve Walters 

IF xX=68CxX=72 j 

mnie S56 Langfield 

IF @®(B)GOSUB 6;TU=45;N=1 Northville, MI 48167 
RETURN . 


CY¥=-32:; INPUT * INPUT 1-4 -PLYRS: "P 
IF €P<li+¢€P>4)CGOTO 48 
T=FP5U=-1;5FOR N=STO 8; @CH+N)=@;NEXT N 


De Ve OMMF- AVANNMLWNKF RMON pa whe, 


be Bb WWNN NR RRR RE eR te 


a 


52 CLEAR ;PRINT “ BALLY";PRINT ° BLACK";PRINT * BOX", 

Sz 0=@; 0=8@;L=64;I1=@;T=T+1;1IF TOP T=1;1=4;U=U+1 

54 FOR N=-32TO 32STEP 8;LINE @,N,4;LINE 64,N,1;LINE N+32, -32,4;LINE N+32,32,1: 
NEXT Ni PRINT #1,"#",T 

SS BOX 32,8,67,67,3 

S@ FOR M=1TO H+1;@(N}=@:MUSN;NEXT N;FOR N=1TO 5 

64 R=RND (S)bS+RND (8)+1;IF @CRIGOTO 64 

BS @(R)J=1;NEXT N 

68 IF U=@PRINT ;PRINT " TEST";GOSUB 15 

79 &(2@)=0;GOSUB 18;GOTO 97 

eB X=IXCTIbS+X; IF X<-4%=-4 

S2 IF X>J xX=J 

SB YaI¥CTIbESY 7 IF Y<-K Yaak 649 CLEAR ;CY=32;1IF T=PPRINT “END °, 

a2 IF YOK Y=K 642 PRINT #Z, “ROUND",U;FOR N=1TO P;PRINT 3 

34 SOSUB 3 PRINT #1,°#".N,° SCORE=", @(HINI,;IF T 

G7? C=3;IF ABSCY)<KIF X<JIF X>-4C=5 =PPRINT #1," AUG=", @CHENT4 ICU, 

38 GOSUB 8:IF TR(T)GOTO 1865 648 PRINT :NEXT N 

iGé GOTO BE 65@ IF TR(TIGOTO 5B 

196 1F C=5SO0TO Sag 652 GOTO ESA 

107 IF ABSCYISKIF (X=-4)+CX=JIGOTOC BB 

112 Q=O4+1;L=L+1;1F L>S@L=65 ; 

115 GOSUB 19;PRINT #1, "PROBES=",Q;&( 28 )=H;NT=H; MU=J;NT=2; GOSUB S9:A=B;GOSUR 2;TU 
=L. 

130 D=S;F=1;IF Y=K D=-S 


2) 

32 IF x=-40=i;F=S 

34 IF X=J D=-1;5F=5 

146 B=B+0; 2=15;N=G; GOSUB 30;IF NGOTO 7 

158 IF @(CB-F 3+@( B+F J >BGOSUB 6; TV=43:GOTO 7 

164 GOTO 214 

"06 E=B;B=B5+0;G=BcS; IF (RM=6)3+(CRM=19+(B>893+( BK 12)G0TO 28 
£14 N=G;GOSUB 36;IF NGOTO 7 

229 IF @C(B-FIIF @(Bt+F GOTO §S 

38 IF @(B-F3GOTO 11 

@ IF @CB+F GOTO 13 

@ 2=2-2;I1F 2<a2=G 

2 GOTO 249 

@ MU=J;1F U=8T=4;GOTO 5a 

& O=1-Z2bPXCX,Y3+0 

5 BOX -46,-28,],17,2;IF O=4GOSUB 19;CY=-16;PRINT “LAST“;PRINT "GUESS 
B 

B 





IF O<5GO0TO 79 

GOSUP 16;GOSUB 19;PRINT #1, “SCORE=", @; @CH+T )=G; @CH+T+4 )=@( H4+ T4446 
@ IF TRiTIGOTO 64GB 
GOTO 638 
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RACK GoOAMMOonM 
BY MIKE PEACE 


YOW ARE THE SQUARES 


A THE COMPUTER 93 eee $3 
THE OBJECT OF THE GAME IS TO MOVE ALL Y 

MEN CLOCKWISE TO OR FAST THE FOINT ON TOF 
WHERE VOW HAVE S MEN (THE 6TH SFIKE FROM THE 


RIGHT) », THEN TO BEAR THEM OFF THE BOARD BY 
THROWS OF THE DICE. A PLAYER CAN MOVE ONE 
MAN FOR THE TOTAL OF THE THROW, OR TWO MEN, 
ONE FOR EACH NUMBER ON THE DICE. DICE ARE 
SHOWN IN BOTTOM CENTER OF VEET FOR CGomcw19e 
tgRe Y Rita? FOR COUNTERCH DSEWES SE. WHEN YOU HAVE 
POSITIONED THE FLASHING BOX AT THE FIECE You 
WISH TO MOVE, PULL THE TRIGGER. YOU WILL NOW 
BE MOVING THAT FIECE TO THE NEW LOCATION 
DETERMINED BY THE DICE. PULL THE TRIGGER 
AGAIN TQ COMFPLETE THE MOVE. YoU MUST MOVE 
ALL OF, YOUR MEN TO THE RIGHT OF THE SPIKE 1 
FREVIOQUSLY MENTIONED HEFORE VOU CAN TAKE 
THEM OFF THE BOARD. TO MOVE THEM OFF, SIMPLY 
USE THE MOVING METHOD TO GET THEM OFF THE 
UPPER RIGHT OF THE BOARD. THE COMPUTER WILL 
FLUACE YOUR MEN AT THE LOWER LEFT AND ITS MEN 
AT THE LOWER RIGHT OF THE SCREEN. YOU GET 
TWO FULL MOVES FOR DOUBLES, AND YOU CAN SEND 
THE COMPUTER’S MAN BACK TO’START IF YOU LAND 
ON HIG SINGLE MAN. YOU CANNOT LAND ON any 
SPIKE THAT I8 OCCUPIED BY MORE THAN ONE OF 
YOUR OF FONENT‘’S MEN. THE COMFUTER FOLLOWS 
THE GAME RULES. IF YOU ARE SENT BACK TO THE 
START, YOU CANNOT MOVE ANOTHER MAN UNTIL THE 
ONE OFF THE BOARD 18 RESTORED TO THE FLAYING 
FIELD. ANY WRONG MOVE 19 FENALIZED BY LOSS 
OF PART OR ALL OF THAT TURN. IN BEARING OFF 
YOU MAY NOT USE THE TOTAL OF BOTH DICE FOR 
ONE MOVE. IF YOU HAVE NEVER PLAYED BEFORE, 
WATCH THE COMPUTER ’S MOVES TO LEARN MORE 
QILTCKLY. GOOD LucK! 

MIKE FEACE 


LOWERCASE = 
= SPACES. 


i-BYTE KEYPAD WORDS. UNDERSCORES 
1739 CHARACTERS 


S NT=2;clear ;H=50Q; Z=85;0=13;C=6; F=0; U=0; G= 
ig ic 280 
box X,Y,1,3,3;box X,Y,3,1,3 
3 box X ‘Y.3,3,33 return 
13 for O=Gto Z;MU=O;next O 
15 for O=4to 12;MU=Z+K;gosub Psnext Osreturn 


20 C=14;gosub 225; CY=13;CX=-30:NT=Osreturn 

25 if W>G_W=0 

26 if W<Q@W=6 

28 if W<13X=84—Wx 13; Y=-32+ABS (@(W) ) x4-Vx4 

29 if W12X=-724+13x (W-13) s Y=32-ABS (@(W) )x4+V 


SQ if W=OY=-405 X=@(W) x3+66-F 3 MU=X 

Sl if W=25Y=-403 X=@(W) x3-66+U3 MU=75 

34) =return 

35 for A=1lto 24;if @(A) >@return 

3&6 mext Asgosub 20;print “YQU_WON!"sA=KPsrun 


7@ gosub G;P=11+Nsgosub 15;@(W) =@(W) +L3W=0 
71 if @(W)=L_P=11+L3gosub G;gosub 0; @(W) =8;6@ 
(K) =@(K) +L3P=W3W=Ks3gosub G;gosub 11+L3MU=Z;W= 


72 if Q=Gif N=1U=U+3;goto 75 

73 if Q=0if N=-1F=F+3; goto 75 

74 = @(W) =8(W) +N 

75 gosub G;P=11+Nsgosub 15sreturn 

BQ @(26)=D+W; @(27) =I +Ws @(28) =D+1+W 

81 for S=26to 28;if @(S)<1@(S)=Osif A>7C=0 
82 if @(S)>24@(S)=Gsif A<19@(S)=wW 

84 next Ssreturn 

85 S]rnd (3)+Gsif T>2i¢ (S=J)+(S=28) #8goto Z 
86 if S=28if @(28)=Kgoto 2Z 

87 return 

99 P=Cigosub 80 

for M=ito 5;gosub Z 
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120 if @(@(S))<Eif @(@(S)) >C_J=S;Q=@(S);T=T+ 

lyif S=28T=T+1 

140) «if Q#-2return 

168 C=Psnext Msreturn 

228 for A=-78to 7éstep O;line A,-34,@;line A 

40,355, 13;line A,35,8;line A+0,-34,13;next A 

2085 for A=-59to 72step 24;for B=3ito istep - 

6;box A-0,-B, (B+3)+3,6, 1;box A,B+2, (B+3)+3,6, 

i theict Bsnext A 

286 for A=Oto G;@(A)=Osnext As@(1)=2;@(6) =-5 

5 @(B) =-33 @( 12) =53@ (13) =-53@ (17) =33@ (19) =53@(2 
=-2 

287 for W=ito GsA=i1Bsif @(W) >@A=12 

208 for V=ito ABS(@(W))s;if @(W)gosub Gsgosub 

A 

218 next Vgnext W;V=13CX=-Gsprint "BACKGAMM@ 

N 

225 box @,1,168,C,2;if C=i4return 

S@Q D=rnd (6)3I=rnd (6) sCY=-39;CX=-14;: print 

#2,D,"_",1j;box 0,-39,27,8,3;box @,-39,7,8,3;T 

=2sif D=(1)T=0 

33Q NEN+i3 J=-Gyif N>O@N=-1; goto 6280 

400 K=G;Q=-2;N=@;L=-1 

41@ gosub 35;gosub H;if Q=-2goto 412 

415 if @(Q)if O#AFor M=Oto G;MU=69;next Msgo 

to 480 

428 gosub 12;gosub Hsif N#igoto 412 

430 P=W;W=Q;gosub 82 

435 for M=@to 15;gosub Z;if P=@(S)J=S:Q=P;90 

to 45a 

440 MU=48+M;next M 

45@ gosub Gsgosub 12;gosub 70;T=T+1;if S=28T 

=T+1 

462 if T>3goto 320 

478 goto 422 

S@Q W=W-JX(1)s;gosub G;gosub 12;gosub 12;if T 

R(1l)gosub 55@3; MU=72: return 

518 goto H 

55@ if Q=-2if @(W) >@Q=Wsreturn 

560 if Q#-2if @(W) >-2N=1;return 

57@ N=@sreturn 

622 =-D; I=-I;L=1;K=@ 

618 R=1;for A=Gto istep Nsif @(A)<@goto 616 

615 next Asgosub 28;print "“CO@MPUTER_WON";i¢ 

KPrun 

616 E=2;if @(G)<OR=A 

638 for W=Ato Rstep N;B=@(W) s;Q=-2;if B>@goto 

636 

632 if E=@C=-2;gosub 99 

634 if E=2C=-G:gosub 99 

635 if Q#-2goto 662 

636 if E<@goto 320 

658 next WsE=E-2;goto 632 

668 gosub 70;if T>3goto 320 

678 goto 618 


@QUIE¢t KR Fabris 











GAMBITS 
Presents 
"BOING" 
Starring im 
SPRING THING Part r 


Imagine controlling a coil spring inside of a building 
located in deep space. There is no gravity or friction to slow it 
down! Now imagine that you must avoid being hit by a battery of 
laser canons that keep shooting faster the longer you stay alive, 
and try to pick up valuable gold rings! 





This is how this fast paced game is Played! "Turning it 
Over" (12,5088 points) will start your game over with the number 
of SPRINGS you have left plus one, which, by then, will be a 
welcome relief!!! 


Options include: 
1 to 4 Players 
Individual selection of laser firing speeds 
Individual selection of the number of SPRING THINGS 
Individual selection of hand controls 
Continuous play or Stop after each SPRING 
This game can be played on ANY BLUE PAM BASIC! — 
The cost is only $6.95 (U.S.)! 
Send check or money order to: 
KEN LILL 
6688 S. CAMPBELL 
CHICAGO, ILLINOIS 68429 


Please allow 2 to 4 weeks for delivery 


‘ 


SPeEeCIrAL OFFER! ! 
Buy your SPRING THING Part I tape before 
January 31, 1985 and “Turn -— it - over” and you wild 
receive either a $1.88 refund OR $1.59 credit 
towards the purchase of either a SPRING THING Part 
II or ARCADE GOLF tape’ Sorry. offer available only 
once per tape’ (Part II available in 1985) 
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Ocr 31, (484+ =~ 
er Bl, | le oe Shel bs Me tele 
“REP ACK" CUTILITY] a 


[FOR AB + SK ADDED MEMORY] 
5 CLEAR ;CY=16;CX=-21;PRINT "ZER@ING";CX=-9;PRINT "RAM" ;CX=-18;PRINT " PLEASE" 


2CX=-12;PRINT "WAIT 
10 A=24576;B=327467 :CH-A 3 D=—-22772 : E= 19998 3 F=20358;G=16384;FOR N=ATO BSTEP 23%(N 


3=@;NEXT N;CLEAR ;PRINT " READY";PRINT “ AWAITING INPUT 

15 PRINT “ G@F TEXT : 

26 sINPUT “CAD SPRINT “ IN BLUE RAM 

3Q H=28600;1=30500:K=31000 ;M=K; J=36858;L=%¢ 26080) | FOR N=CTOQ LSTEP 234%°M)=40N) | 
M=M+2;NEXT N;PRINT " UNPACKING ies 


46 P=9192;R=2368 ;FOR N=GTO ESTEP 2:%°N) =4CN+P) NEXT Ni M=H; FOR N=CTG DSTEP 236 
M> =“~0N) sM=M+ 2 yNEXT Ny M=K;FOR N=CTO fee 23 ON) =ZOM) | sM=M+2 sNEXT N 


S@ CLEAR sPRINT : TEXT UNPACKED" :FOR N=ITO JSTEF 2:%0N) =40N- R> sNEXT N;3FRINT 
" READY T@ L@AD PICTURE 

6@ sINPUT “CAD sPRINT " IN BLUE RAM 

7@ FOR N=@TG RsNEXT N3sM=K;PRINT "  REPACKING TEXT 


@@ FOR N=GTO ESTEP 2:%¢N)=“¢(N+P) sNEXT N3FOR N=CTO LSTEP 2;%¢N)=46M) gM=M+t23 NEXT 
N;M=H 

64 FOR N=CTO DSTEP 23%¢N)=4%¢M) sM=M+2:NEXT N;FOR N=GTO ESTEP 2;4¢N+P) =40N) sNEXT 
NsM=K;FOR N=CTO LSTEP 234¢N)=”6M) sM=M+2 3 NEXT N 


104 CLEAR 'PRINE-? TEXT REPACKED" ;FOR N=ITO JSTEP 2:%¢N-RO=40N) NEXT NyM=@ 5 FO 
R N=28346TO 2855@STEP 2:;1F “(NI M=(N-28344) c2 

11@ NEXT N;N=M+21b¢M#@) sPRINT " D@ Y@U WANT" SPRINT " FILE SEARCH?" ;PRINT " {= 
ES 2=N@ 


120 O=KP-SG;1F GINPUT " FILE SEARCH NG@.?"Y 
130 IF (O<-1)+¢0>@) GOTO 128 


146 PRINT " PRESS ANY KEY F@R"3PRINT "9 : PRINT 
15@ IF KPIF O:PRINT Y,1 
16 :PRINT “CAD, 18644+NSPRINT " sLIST "“s:LIST ;1F Q:List 
17@ PRINT ;PRINT “ T@ Re UTILITY PRESS" j ;sPRINT " ¢G@> 
‘180 IF KP=12RUN a 
ENTERSPRINT "3 RUN "s:PRINT 4616394) , 1887 GET TAPE MOVING AND PRESS GQ) 
TO USE "REPACEK"” : 
>4. KEY IN UTILITY AND PUT ON PERMANENT STORAGE TAPE 
>2, KEY IN PROGRAM TEXT, VARIABLES, STRINGS, AND MACHINE CODE IN STACK AREA 
>3. TAPE ALL AT ONCE!! 


NOTE: YOUR LIMITS ARE FROM SIMPLE :PRINT ,OR RATHER: 
FROM :PRINT %( 16384) ,1664 TO :PRINT %(16384) ,1987 [CHALF THE STACK] 
PRESS CRESET] AND KEY IN PICTURE PROGRAM OR LOAD AB SCRIBLING 
T&PE PICTURE PROGRAM OR SCRIBBLING BEHIND TEXT WITH PICTURE SHOWING 
NOTE: TRY PUTTING: IF &¢€23) :PRINT INTO SCRIBBLING SOMEWHERE 
AND HIT LEFT KEY COLUMN TO DUMP CIF SCRIBBLING WAS USED] 
>é. LOAD "REPACK" 
>7. LOAD TEXT AT "AWAITING INPUT OF TEXT" 
>&, LOAD PICTURE AT "READY TO LOAD PICTURE" 
+9, CHOOSE FILE SEARCH. [TO FOLLOW VOL.S PG.125 ARCADIAN "FILE SEARCHER" J 
>1&. DUMP FINISHED PROGRAM TO TAPE . 
11. PLAY FINISHED TAPE BACK IN TO VERIFY 


vy 
ch 





ee 
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"Re Pack” CisTFricigTyY 4 
[FOR AB NO ADDED MEMORY] 
CUSE FOLLOWING PROCEDURE] 


KEY IN PROGRAM TEXT, VARIBLES, STRINGS, AND MACHINE CODE IN STACK AREA 
SFTER DEBLIGGING, TAPE MACHINE CODE WITH :PRINT é2e2 ek COR Labelle 
RUN 34 SEC. OF BLANK TAPE THROUGH AND TAPE THE TEXT AND VARIBLES THER 
NOTE: USE :PRINT %(-24576) ,904;:PRINT %¢ 20008) ,57 i Be 
REWIND TAPE, ENTER :LIST , AND PLAY TAPE STOPPING WHEN CURSOR RETURNS 
PRESS [RESET] AND KEY IN PICTURE PROGRAM OR LOAD AB SCRIBBLING 

NOTE: REMOVE WORK TAPE TO USE SCRIBBLING BUT DON’T REWIND rene 
TAPE PICTURE PROGRAM OR SCRIBBLING BEFORE TEXT WITH PICTURE SHOWING 
REWIND TAPE @ND PRESS [RESET] aie tagtt | 
RELOAD MACHINE CODE WITH :INPUT “¢2@237) [OR WHATEVER] AND STOP TAPE 
ENTER THIS LINE, PRESS [G@] AND PLAY THE TAPE 


fh. OS Ohl 


“OC ws] 


PRINT "SRUMN "s:INPUT s:INPUT 4e-245764) ;: INPUT “C 26600) SIF KP:PRINT “OC iéss4) , 1767 
COR WHATEMER] 


241@. GET OUT YOUR FINISH TAPE, START IT RECORDING AN HIT A KEY 
b1i. USE :LIST TO VERIFY 


CQUESTIONS???] WRITE To 


eEL C&C. IH TI =a 
: : mou Tr LIT Pe Ho 
-CO. #1 So 2S 
aE Peart. MHI 44 


"“REPACK" PICTURE CONTEST RULES 


AS YOU HAVE SEEN, THERE IS NO PICTURE FoR ™ REPACK" 


SIMPLY SEND IN A TITLE PICTURE FOR THE UTILITY, ON A CASSETTE TAPE oF 
A LISTING THAT DRAWS YOUR PICTURE 


ALL CONTESTANTS RECIEVE A COUPON TOWARDS A GUAD Res PURCHASE 
THE BEST JUDGED PICTURE RECIEVES QUADRS FREE: 1 


° 


PRESENT OWNERS OF @MLUGORR, ARE NOT ELIGIBLE FOR AN GBYVIOUS REASsor 
CYQU ALREADY HAVE THE PRIZE] 
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mh 
METROPOLITAN ATTACK! 


LOWERCASE = 1-BYTE KEYPAD WORDS. UNDERSCORES 
= SPACES. 1535 CHARACTERS 


2 NT=@:clear ;print s;input "BASES?"S 

& BC=@0:0=10; T=23 @(1) =253 @(2) =253 @(3) =25; Ve49 

93M=0; 0=4;3W=200;FC=143gosub 2822 

1@ clear ;FC=14;box @,-42,168,3,3 

20 box @,-40,10,7,1 

3Q =X=104513 Y=10240; Z=10285 

35 B=-40;C=40;D=0;E=C;F=C; G=F 

4@ for A=30to 7@step 353box A,-38-rnd (3),9, 

S,isbox -A,-38-rnd (3) ,9,5,i3next A 

3SQ for A=-4to 4step 33box A,-38,1,1,2:next A 

68 C=C-T-rnd (3) ;E2&-T-rnd (3)3G=G-T-rnd (3) 

sB=B+ernd (7)-4:D=D+rnd (7)-3;F=2F+rnd (7)-3 

61 if Q=2if MOW_T=T+13W=W+200; goto 728 

62 if M>W_Q=Q-13 W=W+200 

65 if M>Vgosub 1000 

67 if @(1)<5iF @(2)<S5iF @(3)<SBC=i 

70 XY=Xsline B,C,33X=XY3XY=Y3line D,E,33; Y=XY 

sXY=Zsline F,G,33 Z=XY 

71 NT=O;CY=42;CX=-30;print #8,MsNT=1 

7S if (C<-37)+(E<-38) +(6G<-37) goto 282 

82 for A=1to Qygosub 1@2;next Asgoto 42 

100 J=KN(1)485+2 

102 VA=23 VB=2;3 VC=23 TA=1663 TB=TA; TC=993 VR=133 

VF sz 

105 HeH+JX(1)x(S+T) pISIsdV(1)x (S+T) pif 15351 

=35 

106 if I<-301=-308 

107 CX=H;CY=Isprint "+"sK=0;CX=H;CY=I;print 

108 if TR(1)#lreturn 

109 if @(J)=OMU="4"sreturn 

‘118 if J=lR=-10049 

111 if J=2R=-10240 

112 if J=3R=-10175 

115 @(J) =@(J) -13 VC=53 TA=S33 NM=23 VR=633 VF=33M 

O=-13 TC=29; VA=S; VB=6siFf @(1)H=OiF @(2)=BiF @(3 
J=Agoto 1620 

116) «for K=ito 23;XY=Rsline H,I,3snext K 

120 if H>B-Oif H<B+Oif I<Cif I>C-Obox -52,6, 

5Q,75,2; X=10451; B=-40; C=403 NV=a—13 M=M+20 

13@ if H>D-Oif H<D+Oif I<Eif I>E-O_M=M+20;bo 

% 0,6,53,75,23 Y=102403 NV=-13D=0; E=4Q 

140 if H>F-Oif HCF+Oif I<Gif I1>G-O_NV=-1;M=M 

+20; box 52,6,53,75,23 Z2=182853 F=40: G=F 

15@ NV=@;return 

220 for A=1to 30; BC=89; MU=44; BC=0;3 MU=95; next 
AsS=S-isif S=@goto 680 

218 gosub 2@@@;goto 128 

602 v3for A=SO@to 101;FC=89;box 8@,-38,160,10, 
3; FC=143MU=Asnext A;STOP 
1200 NT=0;CY=3@sprint " 
"___FUEL_BONUS: "sprint 
1001 NT=13for A=ito 1@@step 33MU=Asnext A;fo 
r A=lto @(1)+@(2)+@(3) sprint "*",3M=M+S3next 
A; CX=-30;CY=4@;s print #@,Msfor A=1to 3; @(A)=25 
snext A 

1082 for A=ito 1280;next A 

1003 BC=Osif O<2@0=0+1 


BONUS_BASE" sprint 
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CONNECT FOUR ENLARGED 
ADAPTED FROM ROBERT LEAKE‘S PROGRAM 

WHICH APPEARED IN LAST MONTH'S ARCADIAN. 
USE REM LINES 1 - 7 FROM LAST MONTH 

AND RETYPE THE PROGRAM FROM LINE 8 THRU THE 
END. THIS VERSION FILLS THE WHOLE SCREEN! 


ADAPTED BY H.L. HANSON 


LOWERCASE = 1-BYTE KEYPAD WORDS. UNDERSCORES 
= SPACES. 1184 CHARACTERS 


8 BC=0;FC=11@;goto 14 

9 box @,41,117,2,2 

10 box -72+18xC,41,9,2,1sreturn 

110 M®%(-242254+14xE+2xC) sreturn 

12 U=Q+7;F=RMyif F=Q@F=7 

13° box —72+18xF 5-37+(Q-1) #7x13,17,12,3;retur 


14 clear ;input "__1_OR_2_ PLAYERS?"P 

iS for A=1to 746;#(A)=2snext A;clear s;box @,- 
5,127,79,1;for Q=1to 42;gosub 12;next Q;C=i3g 
osub 10; T=-13;Naé9 

16 Jm(T+3)42 

17) D=C+IX(J)sif CH#DIF Dx (8-D) C=Dsgosub 9 

18 if TR(J)#1+(*(C)=6) goto 17 

19 gosub 37;T=-T;if P#igoto 16 

ae} e-9999; for C=ito 7sgosub Fjif *({C) =ogotu 
36 

21 E=*(C)s;gosub 113;W=O:for A=M+ito A+%(M) +25 
6; B=% (A) #256-24; S=* (B) 

22 W=W+*(BQ+S) pnext Asif W>=* (83) K=C3C=73 got 
0 36 

23 if #(C)=S5goto 35 

24 if W>*(77)goto 35 

25 E=E+lsgosub 11;G=OsH=1sfor A=M+1to A+%(M) 
7256; B=% (A) 256-24: S=#* (B) 

26 if S=-3G=1 

27 if S®-2W=W-2x#(78)43 

28 if S=2W=W-* (82) +3 

29 if S=3H=2; W=-3333 

3@ next Asif G_W=-66466:goto 35 

S31 if H+(#(C)=4) goto 35 

32 E=E+isgosub 113;1=@;for A=M+ito A+%(M) +256 
} BEZ (A) 256-24; S=# (B) 

S33. if S=3I=1 

34 next Asif I_K=C;C=7sgoto 36 

35 if WOL_L=WsK=C 

36 next C3C=kK3gosub 37;T=-1;goto 17 

37 E=*(C)sgosub 115%(C)=*(C) +13 X=-72+18xCs Y= 
“SO+13x#(C) sgosub 93 box X,Y,13,18,igbox X,Y,7 
995 (7+T) #23 MU=B4 

38 for A=M+1to A+% (M) #2563 B=% (A) +256-24; S=x ( 
B)sif S=4goto 446 

39 if SxT<O*(B)=4;N=N-13goto 46 

4@ S=S+T;*(B)=Ssif S#4xTgoto 46 

410 R=132Z=%(-24144+B) +256-31:i¢ B>3iR=6 

42 if B>43R=7 

43 if B>é64R=8 

44 N=@:for Q=Zto Z+3xRstep R3gosub 123gosub 
13;MU=67+Nsnext Q3if TR(J)run * ¢) 
43 goto 44 
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1010 V=V+580;S=S+1;gosub 2820;goto 10 pi iil Alif Nreturn # (77) 81200 
1608 CY=10;print "__OUT_OF_ENERGY!";goto 62 ic Seger hall TIE_GAME", #* (78) 2128 
2002 v3clear ;CY=0;CX=@;print #@,S;for A=ito - hie i ren #(79) =8 
40;box @,0,38,30,3;next Asreturn 9 eter 
*(B1)=12 
* (82) =150 
O84 K. FABRIS 110 * (83) =8220 


* (84) =0 
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KNOWLEDGE TO READERS THAT MAY BE IN THE 


DARK ABOUT SOME OF THE BASIC NO-NO‘S OF 
PROGRAMMING! 


FROGRAMMING FOR SPEED! 


THERE ARE SEVERAL BASIC THINGS THAT YOU 
MUST TRY TO DO, IN ORDER TO KEEP YOUR MOVING 
OBJECT GOING AT IT’S FASTEST POSSIBLE SPEED. 
ONE IS TO MAKE THE PORTION OF THE PROGRAM 
THAT DOES ALL OF YOUR MOTION AND CHECK ING 
DOWN TO THE MINIMUM NUMBER OF BYTES! NEXT IS 
TO KEEP YOUR ‘IF’ STATEMENTS AT A MINIMUM IN 
THIS AREA. KEEP YOUR ‘IF’ STATEMENTS AS 
SHORT AS POSSIBLE. ONE OTHER THING TO TRY TO 
DO IS TO USE BOOLEAN ALGEBRA (TRUE/FALSE) 
STATEMENTS AS MUCH AS YoU CAN, PROVIDING 
THEY ARE NOT A LOT LONGER THAN A SHORT IF’! 
LET'S TRY TO WRITE A PROGRAM THAT WILL DO 
JUST WHAT WE WANT IT TO DO AS FAR as SPEED. 


10 IF Z=@GOTO 190 
20 X=X+JX(1)b33 Y=Y+JY(1)b3; IF V=XIF Y=WRUN 
SQ BOX V,W,5,5,3;BOX X,¥,5,5,33V=XsW=Y3 IF 
ABS (Y-E)<4IF ABS(X-D)<4G0TO 5a 
4@ RUN 
8@ GOSUB 82;CX=-15;CY=;PRINT "HIT! "sFOR A= 
@TO 999;NEXT A;BOX @,0,35,11,2:GOSUB 82 
6@ D=RND (15@)-75;E=RND (8@)-40:IF ABS(D)< 
1SIF ABS(E)<4G0TD 62 on 
70 BOX F,G6,3,3,3; BOX D,E,3,3,3;F=D; G=E; RUN 
88 BC=92-( (BC#9) b81) sRETURN 
100 CLEAR; FC=132; W=20Q; F=W; Z=W; GOSUB 82;GOTO 
6 
NOW LET‘'S ANALYZE THIS PROGRAM. LINE # 
1@ CHECKS Z. IF IT IS @ THEN IT WILL JUMP TO 
LINE 1@2 WHERE WE CLEAR AND WE SET THE FC TO 
YELLOW COLOR. NEXT WE SET W AND F TO 20@ So 
THAT WHEN WE GO TO THE BOX MAKING LINES THE 
FIRST BOX OF EACH TYPE IS MADE OFF OF THE 
SCREEN. THIS IS IMPORTANT ALSO, TO REDUCE 
THE AMOUNT OF FLICKER. NEXT IS TO SET 2 TO A 
NUMBER. ANY NUMBER BETWEEN -32767 AND 327467 
WILL DO, AS LONG AS IT IS NOT @! THE REASON 
THAT WE DO THIS IS TO LET US SAVE BYTES 
LATER BY SAYING ‘RUN’ INSTEAD OF GOTO 2a! 
NOW WE GO TO SUBROUTINE #82. THIS IS WHAT I 
SAID BEFORE - BOOLEAN ALGEBRA; THIS LINE IS 
SHORTER THAN THE 2 STATEMENTS- , 


8@ IF BC=9BC=90; RETURN 
90 BC=9; RETURN 


IT IS ONLY SHORTER BY 4 BYTES, BUT AS WE 
WELL KNOW, 4 BYTES CAN GIVE US THAT LITTLE 
ROOM WE NEED LATER! NOW WE JUMP TO LINE 4Q. 
HERE WE SET D & E TO RANDOM NUMBERS. IF THEY 
HAPPEN TO BE IN THE CENTER, WE KEEP GOING 
BACK AND RESETTING THEM UNTIL THEY'RE NOT! 
NEXT WE MAKE OUR SMALL BOX AT F & G. THIS 
WILL BE USED LATER IN THE PROGRAM AS OUR 
LAST LOCATION OF THIS BOX. THIS IS SO WE CAN 
ERASE IT. THIS IS WHY WE MADE THE FIRST BOX 
OUTSIDE OF THE SCREEN LIMITS. FINALLY WE ARE 
PUTTING OUR FIRST BOX ON THE SCREEN, AT D&E. 
NOW WE SET F & 6G TO THIS SPOT SO THAT IT 
KNOWS WHERE TO ERASE. FINALLY WE GO TO THE 
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MAIN PART OF OUR PROGRAM. LINE 2@ CHANGES 
X & Y SO THAT OUR BIG BOX CAN MOVE. THEN WE 
CHECK V & W AGAINST X & Y. IF WE HAVEN'T 
MOVED THE JOYSTICK, WE WON'T MAKE ANY NEW 
BOXES AND THERE WON’T BE ANY FLICKER. THE 
RUN THEN SEES THAT 2Z # @, SO IT PASSES IT 
BY AND GOES THRU OUR HAND CONTROL CHECK ONCE 
MORE. LINE 3@ ACTS LIKE 70 EXCEPT THAT AT 
THE END IT CHECKS TO SEE IF WE ARE TOUCHING 
QUR TARGET BOX. THIS TYPE OF STATEMENT IS 
MUCH FASTER THEN PX() STATEMENTS, HOWEVER , 
THERE ARE TIMES WHEN THIS CANNOT BE USED IN 
THEIR PLACE. IN WHICH CASE, TRY TO CHECK 
ONLY WHAT IS ABSOLUTELY NECESSARY! THE MORE 
CHECKS YOU PUT INTO THE LINES FROM 22 To 48, 
THE SLOWER THE MOTION OF YOUR MOVING OBJECT! 
IF THE EITHER OF THE IF STATEMENTS ARE NOT 
TRUE, THEN THE RUN IS SEEN IN LINE 42. IF 
THEY ARE BOTH TRUE, IT MEANS THAT YOU ‘HIT’ 
YOUR TARGET AND THEN IT EXECUTES LINES 5@ To 
78! THESE SHOULD BE EASY ENOUGH TO UNDER- 
STAND. IF YOU WANT TO ADD ANY SOUND TO BE 
PLAYING DURING THE TIME TH@T YOU ARE MOVING 
“AROUND, TRY TO KEEP IT SHORT AND SIMPLE. A 
GOOD WAY TO DO THIS IS TO ONLY CHANGE 1 NOTE 
DURING THIS TIME. SET UP YOUR VOLUMES AND 
ALL OTHER PARTS OF YOUR MOTION SOUND(S) oUT- 
SIDE OF LINES 22 - 40, SAY IN 70 BEFORE THE 
GOTO STATEMENT. IF YOU WANT TO ADD ANY KIND 
OF SCORING, THAT SHOULD ALSO BE INCLUDED 
SOME WHERE BETWEEN LINES 5Q & 70. I DON’T 
THINK THAT ANYONE WILL COMPLAIN THAT IT 
TAKES TOO LONG FOR THEIR SCORE TO APPEAR. 
WHAT EVERYONE REALLY WANTS IS FOR THEIR MAN 
TO MOVE AS FAST AS POSSIBLE. ONE FINAL HINT 
AS TO WHERE TO PUT YOUR MAIN MOTION PART OF 
YOUR PROGRAM - NEAR THE TOF: 

THE ONLY THINGS THAT SHOULD BE KEPT BEFORE 
IT ARE ANY SUBROUTINES THAT MAY BE NEEDED TO 
DO CHECKS, ADD MUSIC, OR MOVE YOUR PIECE (sS) 
AROUND. ANYTHING ELSE SHOULD COME AFTER! | 

THE WAY THAT YOU WOULD SAVE A PROGRAM 

LIKE THIS IS TO SET Z TO @ PRIOR TO YOUR 
:PRINT. IF YOU DON’T, YOU WILL HAVE TO SAY 


:INPUT ;GOTO 120 ‘G@’ TO MAKE IT START OUT 
RIGHT! ! 


I HOPE THAT WHAT I'VE DISCUSSED IN THIS 
ARTICLE WILL HELP YQU IN YOUR FUTURE PRO- 
GRAMMING! 


FOREVER PROGRAMMING, 
KEN LILL 


6688 S. CAMPBELL 
CHICAGO, ILLINOIS 60629 
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LOWERCASE = 1-BYTE KEYPAD WORDS. UNDERSCORES 
= SPACES. 1621 CHARACTERS 


« THE_GAME_OF_WAR 

+ BY_EDWARD_MAHONEY 

eJUNE_2,_1984 

10 clear ;BC=103;FC=1903 &(9)=875 2(0)=43;58¢(1)= 
433 &(2)=12638(3)=1263gosub 15;goto S#5 

15 CY=0;CX=-27s;print *SHUFFLING*’;for I=ito 3 
00 

16 A=rnd (52)$B=rnd (52)3%(0)=K(A) SK(A=K(B) 
9X(B)=K(0) snext Isreturn 

20 C=(Ex2)4+T3 return 

30 «=D=(Fx2)+Ts return 

40 G=K(E)4Q;0=K(F)4Q3 return 

50 Y=K(I)¢Qsreturn 

61 TV=74; return 

62 TV=8l1l;return 

63 TV=7S;return 

64 TV=65s; return 

70 if (M-U<1)4+(N-U<1) goto S$ 

75 return 

B80 L=53;for CY=24to -8step -8;for CX=-70to 7 
Ostep 132; TV=K(L) snext CX;L=Ltisnext CY 

90 CX=-65;CY=35;gosub 92;CX=20;gosub 92;retu 
rm 

92 print °CARD_#°,;return 

100 L=50;H=-50;B=M-403 J=N-40; Y=B 

110 for W=lto 2;box Hy-10,22,62,2 

120 for A=-42to Ystep 2;box HeAy229191 

130 next AZH=L;Y=Jsnext W , 

200 for A=-60to -38 

210 box Hy By, 2291915 b0x “Hy By2291,2 

220 box AyBy3yly23box At18,BySelyl 

236 pox Levpccyp dg lL puur iLgdyccpipa 

240 box —“AyJpS3yl,23b0x “A-18,JSp3y1 51 

250 next A}X=-28$L=-37}H=-2 
260 for W=lto 2;for Y=Bto Lstep 
270 box KeV¥~y20e1,3;3b0% XeVy20y1 
280 box Xp By 20,29 2;next Y3L=20;3 
next W 
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LOWERCASE = 1-BYTE KEYPAD WORDS. UNDERSCORES 
= SPACES. 1@@5 CHARACTERS 


2 ._FRED_R@DNEY,_1984_._2_ 

3 NT=Osclear 3&(9)=-10;for N=13@to -130step 

-10;BC=246;FC=0;gosub 43 BC20;FC=7;gosub 5; got 
o 6 

4 L=ABS(N) 3Z=5-3x (N<@) sfor X=-L+Zto Lstep 2; 
line 0,0,43;line X,ABS(X)-L,3sline 0,8,4;line 

-X,L-ABS(X) ,3ynext xX 

5S for Q=@to 3xABS(N)snext Qsreturn 

6 BC=73FC=Osgosub 53 &(O)=73& (1) =73&(2) =O &(3 
)=Q; BC=0;FC=7:&(9) 284; gosub S3box -40,22,828,4 
4,33;box 40,-22,82,44,3;gosub 5;FC=0 

7 BC=246;&(8) #55;&(1)=553gosub 5;FC=67;&(2)= 
2353&(3)=2353 gosub 5; FC=O3&(2) =83&(3) =B;box - 
40,22,80,44,3;box 48,-22,80,44,3 

8 gosub 53&(9)=-103;BC=55;gosub 4;if N<@goto 

12 


1 .___VIDEQ_:_VIDE@___._1 
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113 





Vol G, No, jiZ 


290 box X 9-319 20,2923D0x 20sJr39p 292 

300 box 0,-30,17,2091;bOXxX 0,-30,13,18,2 

310 box 0730717720,1$box 0730,13,18,2 

320 X=-2; return : 

400 box 0,-30717,20933bOx 0,-30917,2091 

410 box 0930917920735 b0x 0930,17,20,13 return 
420 box 050,70,24,2; return 

300 for Z=Kto Pstep 23if %(Z)=87Z(Z)=L 

320 next Z3;U=0$;return 

800 CX=-27;CY=35;print #2,E,s3CX=S83print #2, 


B10 CX=X;CY=Yt4;if I#lObox X+4,CY,8,8,2 

820 if I>10gosub I+50s;goto 840 

830 print #0,I, 

B40 CX=X+63CY=Y-53 TV=RM; return 

1000 U=03M=263N=26;E=rnd (52)3F=rnd (52) 3gos 

ub 80;gosub 20;gosub 30;gosub 

1040 gosub 70;if E>S2E=1;gosub 20 

1050 if Z£(C)#77E=Et1sgosub 20;goto V 

1060 if F>S2F=1;gosub 30 

1070 if Z(D)@89F=Ftisgosub 30;goto 1060 

1080 I=E;gosub 50;Y=-30;gosub R3I=Fsqosub 50 

9Y=30;gosub R 

1100 gosub 40;if G=0_CX=-20;CY=8;print °__WA 
*";U=Utisgosub 703%(C)=B87;324(D)=873goto 2040 

2000 CX=-20;CY=-8;if G>Oprint °<_I_WIN" ;M=M+ 





Ut] ;N=N-U-15L=77324(D)=L3if Usgosub 500 
2010 
pL=8952%(C)=L3if Usgosub 500 


2030. CX=-71;CY=-24;print #2,M,;CX=68sprint # 


2yN3CX=-68sprint °>*,3CX=69sprint "<", 


se co 9 
iz ¢ 


° 
veree 
websss 


2050 gosub 400$gosub 4203gosub Qsgoto V 


5000 for I=1to 10;gosub 4203CX=-27$CY=0}prin 


t °_GAME_OVER', 
27010 for Z=ito V3next Zjnext I 


9 if N=@for L=3to 15éstep 4;BC=rnd (243) ;FC= 
BC+12;box @,0,L,Le2,3;next Lsclear snext N 
1Q@ line 0,8,4;BC=127;for C=ito 3step 2:for Xx 
=z-Lr2to Le2step Ce2+1;line X,ABS(X)-38,C;line 
@,8,C ‘ 

11 line -X,38-ABS(X) ,Cyline @,@,Cynext X;gos 
ub Sjnext Cjfor L=@to 5;box @,0,137,77,3;gosu 
b Synext L3gosub Ssclear ;next N 

12 line 0,0,4;BC=127;for X=-Lesto L+S;line x 
sABS (X)-26,1+(X>8) line O,8,1;line -X,26-ABS ( 
ald oil @,@,is;next X;gosub S;for L=@t 

fs) 

15 box @,8,Lx%2+Xx2,66,3;gosub Synext L3gosub 
Sjclear s;next N;BC=55;N=-230;gosub 4;BC=Q;FC 

=246;gosub S;gosub 4 

14 print 3for L=@to 2;BC=rnd (243) sFC=BC+12; 

list ,2;next L;BC=0;FC=7;for L=@to 44:box 2,4 
9160,19,3;next L3N=3333gosub Ssrun 


15 for X=-138to 130;line Q,0,1;line X,ABS(x) 


-130,4;line @,0,1;line -X,13Q-ABS(X) ,4snext X 
box @,8,160,35,2;CY=4;list ,2:box @,0,156,31 
sopeprint 


© 484 & F4BRiS 


if G<Oprint °YOU_WIN_>° $N=N+U+1 5 M=M-U-1 


2040 E=Et1;F=Ftisgosub 20;gosub 30;for Z=1to 
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10 BOX 0,0,170,120,4;GOSUB 40;GOSUE S50 
20 NT=O;:CLEAR ;GOTO 110 

25 CY=24;PRINT “ PULL TRIGGER WHEN READY"S IF TR(1)}) RETURN 

26 GOTO 25 

3O X=X*+IX(1)5 Y=Y¥YtIY (1) 5 RETURN 

40 SN.0,0,170,110,6(1) 5RETURN 

50 SH.0,0,0,@(1)5 RETURN lu. 
60 M=O;PRINT “ MODE?"$RETURN BLUE RAM or VIPER memory systems only 
7O B=B+JY(1)51F JX(1)=-1B=B-10 

80 IF JX(1)=1B=B+10 








90 RETURN 

100 FOR A=1TO 9OOSNEXT A; RETURN . 
110 FC=1933 FB=913;FA=1085 CT=50s CF=SM.sCLEAR sGOSUB SOsPRINT “" (1) CIRCLE"SPRINT 
" (2) BOX “SPRINT " (3) LINE "“$3PRINT “ (4) ALPHABET 


120 S=O3PRINT “SELECT: ", 
130 S=S+IY(1)31F S>4S=4 

140 CY=25;CX=-40;PRINT #1,5,#1," "3IF TR(1)GOTO 160 
150 GOTO 130 

160 IF S=4G0TO 570 

165 IF S#ABS(S)GOTO 2000 

170 IF S=2G60TO 300 

180 IF S=3GOTO 470 

190 GOSUF 60;GOSUB 100 

200 M=M+JY(1)3 1F M>7M=7 

210 CY=2O:CX=-43;PRINT ,#1,M,#1," "31F TR(1)GOTO 220 
220 GOTO 200 

230 GOSUB 20;GOSUB 50;R=KN(1)3IF R<1R=1 
240 CI.X.Y¥,R,M 

250 IF TR(1)GOSUB 100;GOTO 270 

260 GOTO 230 

270 IF JY(1)GOTO 11¢ 

280 IF TR(1}GOSUB 40;GOTD 110 

290 GOTO 27 

Zoo PRINT " SIZE: 

310 B=O;PRINT " WIDTH? 

320 GOSUB 70: W=B:CX=-44:CY=13;PRINT #1.W,#1," "3IF TR(1)GOSUE 100:GOTO 240 
330 GOTO 320 

340 B=C3PRINT " HEIGHT? 

250 GOSUEP 70;H=B;CX=—443CY=7;PRINT #1,H,#1," "“3IF TR(1)GOTO 270 
360 GOTO 350 

370 GOSUB 60;GOSUEB 100 

380 IF TR(1)GOSUE 100;GOTO 420 

390 M=M+JY(1)3 IF M>7M=7 

400 CX=-44:CY=0;PRINT #1,M, #1," " 

410 GOTO zEe0 

42G GOSUB 30;GOSUB 503BOX X,Y,W,H,M;IF TR(1)GOSUB 10C;GOTO 440 
4290 GOTO 420 

440 IF TR(1)SQSUB 40;GOTO 110 

450 IF JY(1)GOTO 110 

450 GOTO 440 

470 GOSUB 460:GDSUB 100 

ABC M=M+JY(1)31F M>7M=7 

490 CY=203CX=-44; PRINT #1,M,#1," "3IF TR(1)GOSUE 10¢;S0TO S10 
500 GOTO 480 

510 GOSUP 30;GOSUB 5O;BOX X,Y,1,1,731F TR(1)GOSUE 109;G0TO =z0 
520 GOTO 510 

530 LINE X.Y.M 

540 IF TR(1)GOSUB 40;G0TO 110 

550 IF J¥(i)GC0TO 110 

560 GOTO 540 

570 PRINT " (1) LARSE"3;PRINT " (2) SMALL 

580 PRINT "FONT? 

590 F=F+JY(1)31F F>2F=2 

600 IF F<1F=1 

610 CY=73CX=-SS;PRINT ,#1,F31IF TR(1)GOTO 620 
620 GOTO 590 

630 IF F=1CF=LA. 

640 GOSUB 100 

650 C=C+IY(1)3 IF C<33C=23 

660 IF C>99C=99 

670 CY=0;CX=-403;TV=C3 IF TR(1)GOSUB 100;GOTO 690 
680 GOTO 650 

GOSUE SO;GOSUP 503; 0xX=XsCY=Y:TV=C3 IF TR(1)GOSUB’ 100:50T 
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700 GOTO 690 

710 IF JY(1)GOTO 110 

720 IF TR(1)GOSUB 40;GOTO 110 

730 GOTO 710 

980 CT=-S2sNT=OsS*PRINT §$ TV=275 TV="3"5 TV=245 2 RETURN 

990 FOR S=1+16383 TO 40416383 

1000 PRINT 3 CT=-525 TV=275 TV=765 TV=1523 TV=15FOR I=S+4079TO S STEP —-405FOR &=iT0 
43; B=BYTE(ZA(1),1)5TV=BSNEXT RSNEXT ISPRINT 

1010 NEXT Ss: RETURN 

1020 CY=50;GOTO 110 

2000 CLEAR sPRINT ™ 1. TO PRINTER 

2010 PRINT " 2. TO TAPE 

2020 PRINT " 3. INPUT TAPE 

2030 PRINT " SELECT", 

2032 S=S+tIY(1)51IF S>3S=3 

2035 IF S<1S=1 

2054 CX=-405CY=305PRINT ,#1,S 

2C35 IF TR(1)#1GOTO 2032 

20236 IF S=1GOSUB 100;GOSUB 25;GOSUB S0O;GOSUB 980;GOTO 110 

2038 IF S=2GOSUB 100;GOSUB 25;CLEAR ;GOSUB 50;FUT%(16282),4081;GOTO 116 
2040 IF S==ZGOSUB 100;GOSUB 253CLEAR sGET “4(16382);GOSUB 4C:GOTO 119 
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1 HOCKEY 

2 BY _BRIAN_HILDEBRAND 

3 / INSPIRED BY_ delice MERE 

10 clear $E=0}1=2}F=-2$H=030=0;P=0;K=03L=0 
20 box 0,39,141, ee there Fo y~2ypdyBSelebox O-- 
43,141, 3,1 $box -72,-2y3,85,1$box 72,-27572092 
;box ~Poy-2y3y20—2 

30 goto 100 

40 box Ay B-2ySyel13 ths ATL box riyBt27 Seu,ilsbo 
of AygH-2ySyael 

BO box ApB-32ySe dp 1L$A=AtCibox A,Bti2,3,Sy15b 
OX AyH-l7y3ycel 

60 if C=50;goto 110 

70 if C=-50}goto 125 


80 if R=1_B=KN(1)#20;A=-60;C=50;goto 40 
90 if R=2_B=KN(2)420;A=60;C=- aia 40 
91 box Ay~2ySy7Pe2hAZATC HHO Ay-2yby77p25AzA 


+C 5 box Ay- aby 79,23; goto BO 

100 if OFKN(1)420_R=1;A=-60;C=S0;goto 71 

110 O=KN(1)420 

120 if PEKN(2)420_ R=2;A=403C=-S0;goto 71 

125 P=KN(2)420 

126 box E,F,y2y2,23;E=E+1;F=FtH 

130 if (FXC(E+3,F))I=-2 

140 «#if (PX(E-3,F))1=2 

150 aif (FPX¢E,F+3))H=H-2 

160 if (PX(E,F-3) )H=Ht2 

170 box EyFy2y2y]3 

175 if ExX-72K=Ktlygoto 170 

176 if E=73L=Ltljgoto 190 

178 if TR(1)+TR(2)goto 10 

180 goto 100 

190 box EyF,p2,2,2$CY=30sprint Lysprint #13,K 
$for M=ito 100j;next Mjbox -35,30,20,8,2;box 4 
5 30y 20,8, 2$bOx -72~30,5,20,1;E=05F=-23 goto 1 
00 


119 © 184 K. ABRIS 














Ga¢ 





Oct 3\ 





% 


LOWERCASE = 1-BYTE KEYPAD WORDS. UNDERSCORES 
= SPACES. 1656 CHARACTERS 


ROTATE 

goto 12 

Z=P44;H=RMsif H=OH=4 

CX=30410xH3 CY=45-10x( (P-1) 4441) 5 TV=@(P) sre 
urn 

N=N+15Z=@(P) s@(F)=@(P4+4) 5@( P44) =B(P+5) 5@(P 
3)=@(P41) ;@(P+1)=Z;T=Ps3gosub 3;3P=Ptisgosub 3 
P=F'+4;gosub 3;P=P-1;gosub 3;return 

for J=lto 16;if M=@(J)P=J 

next Jyreturn 

for I=0to 9973next I 

CX=-293CY=-243box 09-22,159,43,23 return 
10 for I=17to 32;P=I1-16;@(F)=@(1)$qgosub 3sne 
xt IsL=0;3R=Rt+15S5=03 T=O3VEN3 box -19,14,106,31;5 
2;return 
11 CX=-65;CY=25sprint #1, °RESET_#_ °»Ry°t° oN; 
return 
12) clear ;RC=223;FC=8;for I=0to 40step 103;bo 
“ S4ele4lglslsbox I1434,20,1,41,15next I 
13° C=O;for I=1to 16;@(I)=I1+64jsnext IsCY=355i 
nput °__LEVEL°D ; 
14 if (D¢1)+(0>40) run 
15 for I=ito D 
16 P=ernd (11)3if P-P#4x4=0goto 16 
17) Z=@(P) QC FP) =BCF +1) SOC F +1) =@(P+5) 5@(F +5) =0 
(P44) 5 @(P4+4)=Z3@(1+32)=0(P) 
18 next Iffor I=17to 32};P=I-163 @(I)=@(F) 5go0s 
ub 3jnext I 
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26 gosub 63;H=P-P4#4x4=0s;goto 39 

27 gosub 9sprint *SPOILSPORT! 

28 gosub 83CX=-é653print *YOU_QUIT_AFTER_°,#1 

yN,"_ MOVES! 

29 gosub Ssprint "ANSWER?_(Y/N) 

30 if KP#89goto 51 

31 gosub 93BC=1193FC=O;print °CHEATING??? 

32 BeO3K=Osgosub 10sgosub i1l;gosub 9;CX=-23; 

CY=-S;for I=D+32to 33step -1;M=@(1) ;X=CX;Y=CY 

sCX=-65;CY=S3if Kgoto 36 

33 if B=Ogoto 36 

34 Z=KPsif Z=99goto 19 

35 if Z=13K=1 

36 B=Btisprint *MOVE_#_ ",#1,B,°_°ysTV=Msif B 

>C_C=Bsbox 21793591359, 253CX=19;CY=35sprint #1, 

C3box 215359135953 

37 gosub é;gosub S3CX=XsCY=Y3TV=Myif B-Rt10x 

10=0CX=-23;CY=CY-8 

38 next Isgoto 50 

39 if M=83S=1s;goto 19 

40 if Lgoto 44 

41 if S=Ogoto 44 

42 if H_S=0;goto 19 

43 Z=@(P)S@(P)=@(P+1) s@(P+1)=Z3gosub 3;P=F +1 

sgosub 3;L=13N=N+13S5=0; T=0;CX=-65;CY= es 
°SP._MOVE’sgoto 46 

44 if (P>11)+Hgoto 19 

45 gosub 3S 

46 for I=ito 15;if @(1I)>@(It1)goto 19 

47 next Isgosub 9;if N<Iiprint "WOW! SMARTY!” 

sgosub 8 

48 CX=-47;print °YOU_WON_IN_",#1,N,"_MOVES!° 








































1? CX=-65;CY=Ssprint "MOVE_# °,#1,N-Vt1,°? 
SMEKPSif M>S3if M<BSTUS31}TVeM#goto 21 “Fif_N>Digosub 83CX=-41}print #1,N-D,"_HORE_THA 
20 goto 19 N_ ME ! 


49 if It>Ngosub 83CX=-41sprint #1,II-N,"_FEWER 


9 : as 2 
eo _THAN_ME!°$gosub 8$CX=-77$print "BET_YOU_CAN’ 


22 if M=B2qosub 10;gosub 11;goto 19 
23° if M=B83qgoto 39 T_DO_IT_AGAIN! 


. : 30 gosub 8 
24 if M=B4if Tfor I=1to 33P=Tjgosub Sjnext I — 
SNEN-4}S=0}T=0 one - 51 N=Ofgosub 10;gosub 9}R=O0}CX=-35jprint "NE 


ee he W_GAME?_(Y/N) 
a ROE Se 52 if KP#89gosub 9goto 19 
53. run 


"ROTATE" is a sort of 2-d Cube pl's '15-puzzle', where scrambled lettershave 
to beplaced in alphabetical order by rotating a 2x2 square segment within 
the total board. 

Rotate a 2x2 square by keying in the letter in the upperleft hand corner 

of that square, and so put the whole board in order. One special move will 
interchange two horizontally adjacent letters at each reset if you enter 

"S", then the left letter of the pair. Reset by entering "R". Correct a 
wronz rotation with "T". Quit with "Q". Keypad entry for each move of answer, 
reenter game after seeing part of answer by "=" key, or "GO" key for full 
speed. "LEVEL" equals approximate difficulty. 


we have a lengthy description of the operation of this game, what the 
computer is doing, etc., which we will send to you, on receipt of a lonz 
stamped, self-addressed envelope (LSSAE) (Re * 


Robert Newman 
190 S. Marenzo Ave.#8 
Pasadena, CA 91101 
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THE GAME PLAYER 


ponders the future 
by examining the past... 


PART ONE 


As the 1983-84 volume of the Arcadian 
comes to a close and as it is about to enter 
its seventh year of publication, it is 
an appropriate time to glance back at the 
past year's game reviews, some significant 
events in gaming, and examine what appears 
to be an alarming and ominous trend in 
the videogame industry, including and most 
importantly those software manufacturers who 
create and sell games for the Astrocade 
system. 

It was just over a year ago that the 
software market had an historic first, 
when Esoterica Ltd. released TREASURE. COVE, 
the first privately produced cartridge game 
for the Astrocade system. At a time when 
Astrocade had not released a new cartridge 
in over a year, the news of this action by 
Esoterica was the most exciting and signifi- 
cant event since the "new" ASTROCADE BASIC 
cartridge hit the scene. 

The release of TREASURE COVE repre- 
sented an important change for Astrocade 
owners. They hopefully would no longer have 
to depend on Astrocade as a sole source of 
cartridge games, a most significant factor 
since the Astrocade company was having seri- 
ous difficulty surviving. (See "Video Game 
Death ..." Vol.5, No. 1, Pg. 3). Even today 
the future of Astrocade remains uncertain, 
and in the light of the current state of 
the home video-game computer industry, do 
not be surprised if you never see another 
cartridge from the Astrocade people again. 

Esoterica later went on to release a 
cartridge titled BLASTDROIDS, which, along 
with TREASURE COVE, were never submitted for 
review. The Esoterica people have recently 
announced that both of these cartridges will 
no longer be available, a sign of an un- 
fortunate trend that may be spreading to 
other companies. 

Soon after the Esoterica cartridges, 
LéM Software released its first cartidge, MS. 
' CANDYMAN, (Vol. 6, No. 1) an instant success 
for L&M and still one of the finest cartridge 


It featured very 
colorful graphics 
musical score, 

Eventually, the year 1984 would see 
three more software manufacturers enter the _ 
cartridge game scene, with all but one being 
established companies who all had been pro- 
ducing games on tape cassettes. 

New Image gave us a cartridge called 
SNEAKY SNAKE, (Vol. 6. No. 10) a colorful 
underwater action game similar in concept to 
Astrocade's COSMIC RAIDERS, produced by Bit 
Fiddlers and distributed by L&M Software. 
Finally, and most recently, a cartridge 
titled MAZEMAN was put on sale by a new-comer 


» along with an outstanding 
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high resolution and extremely 
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>~ 
to the marketing scene, 
time subscriber and contributer to the Ar- 


Dave Carson, a long- 


Although GAME PLAYER has received 
numerous letters requesting -recommedations 
on MAZEMAN, we have not had a cartridge made 
available for review. As with any product 
that is purchased "sight unseen", we can only 
Suggest the old adage "buyer beware", 
The total number of privately produced 
cartridge games currently available stands 
at seven, including the MUNCHER cartridge, 
which probably is the most popular game play- 
ed on the Astrocade system. There is a very 
interesting history and story behind how this 
cartridge came to be, but I am afraid we are 
not yet at liberty to comment. (Rumor has it 
that the MUNCHER cartridge was discovered at 
an abandoned science outpost on 
by a landing party from the USS Starship En- 
terprise. Later, during a research mission 
via a space-time warp to study 1984 Earth 
cultures, the cartridge was accidentally 
beamed dowm and subsequently lost some- 
where in San Jose, California. ) 
The past year also saw the 
of two new software manufacturers, 
ializing in taped cassettes. A company in 
Canada calling itself Astrogames released a 
four-game tape cassette simply called Tape A-1 
(Yok. 6 No.1), Tt wae and is a nice collec- 
tion of games, especially at a price of only 
nine dollars. Later. Astrogames would re- 
lease Yape 4-2, (Vol. 6 No. 5) containing the 
games NIGHT BOMBERS and ADVENTURE, the 
latter of which is particularly interesting, 
being Similar in concept to the popular 
Atari game PITFALL. 
In May, Fred Rodney Educational Soft- 
ware entered the market, releasing a tape 
cassette titled MORSE CODE TRAINER (Vol. 6 
No. 4), an excellent tutorial of the "Code", 
His next release was ASTRO ANALYST and MEMO- 


MAX (Vol. 6 No. 8, both), two cute brain 
teasers. 


emergence 
spec- 


the Astrocade syst 
new games, I am alwa 


ys striving to stay well 
informed of what! 


S happening in the area of 
soon-to-be-released products and games for 
the Astrocade. In doing so, I have noticed 
a trend that has me concerned, 

The number of games, both cartridge and 
tape, that have been released in the last six 
months, was zero. Prior to that, Fred Rodney 
released four tape programs, Dave Carson put 
out a cartridge, his first, and Astogames 
produced a couple of tapes. Early in the 
year we saw SEA DEVIL and SNEAKY SNAKE, 

Granted, the summer is, generally slow- 
er. But there are some facts that cannot be 
ignored. Remember Wavemakers, the company 
_that produces one of the best line of tape 

games? No new games for over a year. Wave- 
makers had been producing one new game about 
every two to three months. And then there's 
the other "biggie", L&M Software. Nothing 

from them either for a year, not since the —» 


Qk, Fabris Iq BY 


Omicron Ceti ITI 


























































W9 













Me 


Val 6 No Whiz, 





& 


EXTEMDED MEMORY 
PRODUCTS REWI EFM 
BY DAVE CARSON 


IS THE FIRST COLUMN IN A 
WHILE. I HAVE SOME UPDATING TO DO. I’VE BEEN 
REALLY BUSY SINCE GETTING BACK TO WORK. I’M 
WORKING IN A LOCAL COMPUTER SHOP. PROMOTING 
OUR SYSTEM AS MUCH AS POSSIBLE. AND KEEPING A 
CLOSE EYE ON WHAT IS HAPPENING IN THE HOME 
COMPUTER WORLD. I HAVE SOME VERY GOOD 
MATERIAL TO REPORT ON IN THE NEXT COUPLE OF 
ISSUES BEGINNING WITH THIS MONTH’S FEATURE. 
QUTPOST 19 FROM WAVEMAKERS. THERE IS ONE 
ITEM THAT I WOULD RATHER NOT HAVE TO REPORT. 
SOON AFTER MY LAST COLUMN APPEARED. RUSTY 
FROM R&L ENTERPRISES CALLED TO INFORM ME THAT 
R&L NO LONGER EXISTS. A REAL SAD NOTE. THE 
64K BOARD WAS AN EXCELLENT PIECE OF HARDWARE 
AND SHOWED A LOT OF PROMISE AND EXCITEMENT 
FOR THE BALLY-ASTROCADE SYSTEM. THE REASON 
HE GAVE ME WAS LACK OF SUPPORT AND SALES. 


SINCE THIS 


AS BUSY AS I“°M TOLD THAT MIKE PEACE HAS 
BEEN. HE STILL FINDS TIME TO CRANK QUT A NEW 
MASTERPIECE EVERY ONCE IN A WHILE. OUTPOST 
19 IS HIS LATEST EXTENDED BASIC CREATION AND 
DEFINITELY IS A MASTERPIECE. MORE SOFTWARE 
LIKE THIS AND INTEREST IN THE SYSTEM WOULD BE 
GROWING RATHER THAN DECLINING! 


THE SCENARIO OF THE GAME IS THAT YOU ARE 


STRANDED ABOARD A LONELY SPACE STATION. 
SEARCHING ‘YOUR SURROUNDINGS WILL REVEAL 
TROPHIES AND TREASURES THAT YOU MAY "PICK UP" 


FOR POINTS. YOU WILL ALSO FIND THAT YOU ARE 
NOT QUITE ALONE. THERE IS A REALLY BAD GUY 
ON BOARD THAT CAN PASS THROUGH WALLS. LEAVES 
A TRAIL OF "POISONED" GARBAGE, AND Is 
OBSESSED WITH GETTING RID OF INTRUDERS 
“YOU !! HE ALSO POISONS THE TREASURE IN THE 
ROOM THAT HE’S IN SO DON’T PICK IT UP WHEN HE 
IS PRESENT. 


SPACE STATION IS EQUIPPED WITH A 
WHICH YOU CAN ACCESS BY PULLING THE 

IN DOING SO, YOU WILL BE SHOWN 4 
LOCATION GRID THAT IS MORE OR LESS & MAP OF 
THE LEVEL THAT YOU ARE ON. IT SHOWS ALL OF 
THE ROOMS, ROOM NUMBERS. AND WHETHER THERE IS 
STILL A TREASURE IN THE ROOMS. THE GRID ALSO 
SHOWS YOUR LOCATION AND THE LOCATION OF THE 
MONSTER IN HIS QUEST TO GET TG YOU. USE IT 
OFTEN! ! 


THE 
COMPUTER 
TRIGGER. 


THE ROOMS ARE NUMBERED FROM ONE TO 
SIXTEEN. IN THE EVEN NUMBERED ONES, YOU WILL 
GET A BURST OF ENERGY (SPEED) WHEN PICKING UP 
A TROPHY. IN THE ODD NUMBERED ROOMS THERE 
ARE INVISIBLE TRANSPORTERS THAT WILL SEND YOU 
TO A NEW LOCATION ON OUTPOST 19, 
TRANSPORTERS ARE ALWAYS IN THE SAME PLACE AND 
WILL ALWAYS SEND YOU TO THE SAME ROOM. — IT 
TAKES PLAY EXPERIENCE TO BECOME FAMILIAR 
ENOUGH TO USE THE TRANSPORTERS EFFICIENTLY. 
AFTER REACHING THE FOURTH LEVEL. THE MONSTER 
BEGINS TO USE HIS OWN TRANSPORTER. SO BEWARE! 
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THE ROOMS ARE ALL DIFFERENT 


IN T 
GENERAL LAYOUT. SuRE 


THEY EACH HAVE A TREASURE 


AND SOME TYPE OF SIMPLE MAZE CONFIGURATION. 
THE DOORS MAY LEAD IN ANY OF FOUR DIRECTIONS 
"ONE WAY", 


WITH SOME BEING 


inno 








YOUR PLAYER IS THE FACE NEAR THE 
EAST DOOR. THE "FIRE PLUG" IN THE CENTER IS 
THE TREASURE. THERE IS ej TRANSPORTER 
SOMEWHERE (MAYBE IN THE MAZE?7)., THE STATUS 
LINE AT THE TOP SHOWS ROOM NUMBER AND 
REMAINING LIVES ON THE LEFT. IN THE CENTER 
IS THE MOST VALUABLE TREASURE AT THE PRESENT 
TIME. IN THIS CASE IT HAPPENS TO BE THE ONE 
IN THIS ROOM. YOUR SCORE IS ON THE RIGHT. 
THE LOWER STATUS LINE KEEPS TRACK GF (THE 
ITEMS THAT YOU HAVE COLLECTED. YOU NEED ALL: 
wale IN ORDER TO ADVANCE TO THE NEXT 


THE COMPUTER DISPLAY BELOW SHOWS THE 
PLAYER LOCATION IN ROOM ¢ AND THE BAD GUY IN 
ROOM 11. THE TRAIL HE’S LEAVING SHOWS HIS 
oo DURING THE TIME THIS DISPLAY WAS 





THE STATUS LINES 
CURRENT MOST VALUABLE TROPHY, 
GATHERED. 


SHOW LEVEL. LIVES, 


AND TROPHIES 


OUTPOST 19 18 A RELATIVELY EASY GAME TO 
PLAY IN THE EARLY LEVELS. LATER LEVELS 
PRESENT AN ENTIRELY DIFFERENT SITUATION WHEN 
THE MONSTER CAN USE HIS OWN TRANSPORTERS. 




















Vou iG Wo Wi 


THERE 15 LOTS OF FUN AND CHALLENGE FOR 
EVERYONE IN THIS GAME. IT TAKES STRATEGY TO 
STAY AHEAD OF THE BAD GUY AND WHEN HE GETS 
CLOSE. SKILL AND REFLEXES. DON’T TOUCH HIS 
TRAIL. IN FACT, DON’T TOUCH ANYTHING IN THE 
ROOM BUT THE WALLS IF HE IS IN THE ROOM WITH 
YOu. 


THE USE OF GRAPHICS AND COLOR IN QUTPOST 
1% ARE GREAT. SO IS THE SOUND AND OVERALL 
PLAYABILITY. WITH THE EXCEPTION OF ONE OR 
TWO CARTRIDGES THAT I CAN THINK OF, THIS MAY 
BE THE BEST PIECE OF GAME SOFTWARE YET IN 
EXISTENCE FOR THE BALLY-ASTROCADE MACHINE. 
THIS MAY BE A RATHER STRONG STATEMENT BUT 
IT°S MY HONEST OPINION. 


I REALLY HOPE THAT MIKE PEACE CAN 
CONTINUE TO FIND THE TIME TO WRITE IN €E.B. 
AND PRODUCE SOFTWARE FOR US. THE MORE HE 
DOES. THE BETTER IT GETS. EACH SEEMS TO GE 
MORE SOPHISTICATED AND INNOVATIVE THAN THE 
LAST. KEEP IT UP. MIKE. WE NEED YOU. MIKE 
NEEDS OUR SUPPORT IN ORDER TO DO THIS TYPE OF 
WORK. KEEP IT PROFITABLE FOR HIM. I HAVE 
YET TQ SEE AN E.B. GAME FROM HIM THAT I COULD 
NOT FULLY RECOMMEND. BY ALL MEANS, OUTPOST 


17 IS A "MUST HAVE" PIECE OF SOFTWARE FOR ALL 
BLUE RAM USERS. at HAS MY HIGHEST 
RECOMMENDATION! !! 


STILL TO COME, ANOTHER GAME FROM KEN 
LILL OF GAMBITS SOFTWARE. AND SOME BLUE RAM 
CONVERSIONS OF SOME GF THE CLASSICS FROM 
WAVEMAKERS SO STAY TUNED. DON’T FORGET TO 
RENEW YOUR SUBSCRIPTIONS, THERE’S STILL LIFE 
LEFT IN THE OLD BALLY!! 


ALL QUESTIONS AND COMMENTS INCLUDING A 
S.A.5.E. WILL BE ANSWERED, 


DAVE CARSON 
P.O. BOX 39 
KIPTON, 


(FOR UPS-3@9 STATE ST.? 
OHIG 
444047 
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MS. CANDYMAN cartridge. 
distribute Bit Fiddler's SEA DEVIL cartridge) 
They, too, had been averaging about four to 
five new releases per year. Most recently 
was the announcement that Esoterica Ltd. 
would no longer be making the BLASTDROIDS 
and TREASURE COVE cartridges. Why? 
And whatever happened to Tiny Arcade, 

Edge Software and the George Moses Co.? All, 
at one time, were major producers of Astrocade 
games, and all of whom have not been heard 
from in well over two years. 
I cannot give you a good or satisfactory 

I can, however, point out that profits 


(Although they did 


answer. 


. from videogame Arcades across the nation are 


down 50 percent and that a number of videogame 
trade magazines have folded. In my area, 
Washington, D.C., I can name more Arcades 
that have recently closed than I can those 
that are still in business. 

The key question then, is, 
a fad that is now passing Industry-wide, the 
answer seems to be, Yes. How will this affect 
the Arcadian and the companies_that have been 
making games for the Astrocade? Has the Astro- 
cade system taken its last breath? 


GAME PLAYER, 48-G Rid 
Greenbelt, Maryand 20770) idge Road, 


are videogames 


© M. L. Prosise 1984 
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26 PRINT * (C)BALLY CHESS BOARD” 
3@ PRINT * BY JOHN COLLINS 
54 GOSUB 38@08;GOSUB 2204 
e4 G=1;GOSUB 1800;Q=-1 
3@ GOSUB 1880;GOTO 8G 
1666 M=-26+Kb1G;N=-45+Lb1@; IF (Lo2)b2#LGOTO 1838 
1616 IF (Ke2).b2=KGOTO 1648 
iG@z@ BOX M,N,1@,16,2;IF G=1IF Q@=1BOX M,N,8,8,1 
1625 RETURN 
1634 IF (Ke23b2=KGOTO 1828 
1€4@ BOX M,N,18,16,1;1F G=1LIF Q@=-1BOX M,N.8,8,2 
1445 pete 
156G 6;Cx=-75;CY=4@; IF Q=1PRINT * WHITE";GOTO 1985 
1892 ote " BLACK" 
125 I=I+1;PRINT * FROM"; INPUT * RANK"R;INPUT * FILE"*S 
S67 IF R=G@INFUT “LOC"S; INPUT "VYAL",@(S3;GOTO 1885 
1Gi6 T=S+CR-1LbS:P=@(TISIF (TX<1)+(T>64)GOTO 1885 
1826 IF @(TI< LIF Q=1GOTO 18@5 
JE5G IF @CT)>-LIF Q=-1G60TO 1885 
L@42 L=I+i;PRINT “ TO";INPUT “ RANK"U; INPUT * FILE*Y ° 
Lone WaV+CU-lobBi IF ChK13+0CW>64)6G0TO 1849 
12e0 IF @CWIOBIF G=1GOTO 1848 
a7 IF @CWI<GIF Q=-1GOTO 1848 
* @CT I=B; 6CW =P 
0 kK=S;L=R;G=8;COSUB 180g 
if K=U3;L=U;G=1;GOSUB 18a 
12 Z=22BG+ABS(Pb1G);GOSUB Z 
mS IF ABSCPI=61IF ABS(T-W)=2 PRINT "MOVE BOK ee -753 mein GOTO 1865 
& IF I>2GOSUB 2600 
RETURN 
CLEAR ;BOX 25,0,86,86,3 
| FOR IT=1TO 64: M=-20+(1I-((1I-1)c83b8Ib19 
HG WN 354( CT =13c8 Ib 18 
IF (C€I-lLic8=((CI-1)c8Ic2IbZ2COTO 2049 
IF (Ic2)b24#IBOX M,N,16,18,3 
IF CIcZib2=1IF @£1)< BOX M,N,8,8,3 
5 IF @CI)=GCG0TO 2186 
& IF (Ie2)b24IIF @(1)>@BOX M,N,8,8,3 
= GOTO 2868 
2 IF (Ic2)bZ2=IBOX M,N,10,18,3 
42 IF (Ice2 b24e1IF @(1)<@BOX M,N,8,8,3 
eS IF (lc2)b2=1IF @(1)>BBOX M,N,8,8,3 
°CBE 2=2200+ABS( @(CI3b1G@3;GOSUB Z 
¢' 2 NEXT 1:PETURN 





2202 RETURN 
Z21@ BOX M,N-1,2,3,3;BOX M,N+1,4,1,3 

2214 BOX M,N-3,4,1,3;BOX M,N+2,2,1,3;RETURN 
2224 BOX M+2,N-1,2,7,3;BOX M-1,N-3,3,2,3 
2222 BOX M-1,N,3,1,3;BOX M,N+1,3,1,3 

2224 BGK M,N+2,1,1,3:RETURN 

2238 BOX M,N-3,6,2,3;BOX M,N-1,4,2,3 

2234 BOX M,N+1,2,3,33RETURN 

2Z4@ BOX M,N-3,5,2,3;BOX M,N,4,4,3 

2242 BOX M-3,N+2,1,2,3;BOX M+2,N+2,1,2,3 
2246 BOX M,N+2,2,1,33RETURN 

2256 BOX M,N-4,8,2,3;BOX M,N-1,6,4,3 

z25Z2 BOX M,N+1,6,1,3;BOX M-2,N+2,2,1,3 

2254 BOX M+2,N+2,2,1,3:RETURN 

2260 BOX M,N,8,2,3;BOX M,N-2,6,1.3 

2262 BOX M,N-3,8.2,3;BOX M,N+1,2,1,3 

2254 BOX M,N+2,6,1,3;BOX M,N+3,2, 1,3; RETURN 
304% FOR I=17TO 48;@(1)=@;NEXT I 

281G FOR I=STO 16;@(1)=1;@(1+4@)=-1:NEXT I 
SG2@ @f 1)=4;@(8)=4; (57 )=-4;@( 64 )=-4 

3O2G @( 2)=2; OC 7 )=2; @( 58 )=-2:; @(§3 3=-z 

B3E4G @¢ 3)=3;@(6I=3;@(59)=-3:@1 62 j)=-3 

BOSH @64)=5;@(5)=6; @( 6B )=-5:@( 61 )=-5: RETURN 
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HARMONY 


MUSIC SOFTWARE 
MAKE YOUR ARCADE SING 


These six tapes allow you to turn your computer into a fantastic musical 
instrument! Sit back and listen to it play continuous Bach, Christmas Music or 
Ragtime in 3-part harmony! Or, thrill to the best of the Beatles Greatest Hits! 


BEATLES GREATEST HITS 
AND FLIGHT SIMULATOR..................910,00 
8 of The Beatles best rock hits plus a challenging game! 


27 CHRISTMAS CAROLS 





All your favorites. Some with vibrato .................... $10.00 
SCOTT JOPLIN RAGTIME 

You won't believe it’s your computer! .................... $10.00 
RBACH’S TWO PART INVENTIONS a: 

All 15 of em play continuously... 2.0.2... eee $10.00 
BACH’S SINFONIA TO CANTATA 29 

Classical. Plays with breathtaking speed! .................. $5.00 







3 VOICE MUSIC ASSEMBLER 


Tutorial, taped program and documentation show you how to program 3 
voice music using a new technique of storing 
the notes in screen memory allowing up to 2400 notes ..... $1 0.00 


HOME BUDGET KEEPER .............910.,00 


Nope! No music here! This one keeps track of 20 household 
expense categories plus all your income. Will register a 
Percentage-Of-Income Statement for every expense category 
to date on demand. Fast graphics. Highlighted items and col- 
umns. Retape program after each use and it automatically 
accumulates all expenses and income and separates them 
by week, month and year-to-date!!! Available in 2000 baud 
BASIC only. This tape comes with a FREE Astro-Zap game 
and the famous Analog Non-Digital Clock program. 


Send check or money order to: 



















GEORGE MOSES CoO. 


P.O. BOX 686, BRIGHTON, MICH. 48116 














re] 


Y=38;input "PLAYERS?"@ 
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OTHELLO 
BY BOB WEBER 


USES HAND CONTROLLER. ENTER @ PLAYERS AND 
MACHINE WILL PLAY ITSELF TO DEMONSTRATE HOW 
THE GAME IS FPLAVED. 

SCORE 18 DISPLAYED ON THE SCREEN THROUGHOUT 
THE GAME. MOVES ARE MADE BY PUSHING THE JOY—- 
STICK FORWARD AND TURNING THE KNOB TO SELECT 
LETTER. THEN WITH THE JOYSTICK IN THE NORMAL 
POSITION, TURN KNOB TO SELECT NUMBERS, PULL 
THE TRIGGER TO MAKE YOUR MOVE. IF YOUR MOVE 
IS PUT ON THE SCREEN AND THEN REMOVED, YOU 
HAVE MADE AN ILLEGAL MOVE. BOARD 18 LETTERED 
AND NUMBERED FOR TOURNAMENT OTHELLO. USE 
HAND CONTROLLER #1 TO SELECT THE NUMBER OF 
PLAYERS. PLAYS @ TO 2 PLAYERS 


% 


LOWERCASE = 1-BYTE KEYPAD WORDS. UNDERSCORES 17@ TV=Z+é64;print #1,9-Y 
= SPACES. 1574 CHARACTERS 188 if TR(M)Z=Zx1@+Y;goto 280 
192 goto 1428 
| clear ;goto 20 200 U=O;if Z=@goto 320 
2 B=L;0=0;E=B+1@; D=B-Ex 103 Y=-36+Dx8}3 X=-36+Ex 210 A=@(Z)sif AXSIFf A>Bgoto 132 
Brif A=Zgoto 352 220 if M=1M=2;R=l13;goto 248 
3 if A=3goto 362 230 M=1;R=2 
4 box X,Y,5,5,13b0x X,¥,3,5,5$DOxX X,Vgi,1,3; 240 @(Z)=MsA=MsS=StisL=Zsgosub 2 
And retien 208 for W=-1to 1lsfor V=-ito 13N=Wx10+V3L=Z3q 
5 NT=1;P=2 osub Sjnext Vinext W | 
& LeL+NsA=@(L) pMUSLyif ASR_P=1;goto 4 SE SEER ThE SSNS SLD 
7 NT=O3if A=Mi¢ T=2return 270 if U=@@ (Z) =33 A=33L=Z;S=S-13 goto Z 
8 if A=@return Lg OS Riles 4 
9 if AS3if P=lif T=2goto 530 S20" OmOtigif Ortgoto 28 
19 if Aefroturn 325 if Q=@goto 100 
11 LeL-NsA=@(L) if ASR_U=1;@(L)=MpA=M:gosub SS@ if Me2M=i;goto 100. 
2 348 M=2;goto 1282 
12 if A=Mreturn S5S@ box X,Y,5,5,15A=1; return 
13 goto 11 S60 box X,Y,5,5,2;goto 330 
20 &(9)=72:BC=rnd (32)x8;FC=BC+4+rnd (32)x8; 468 Z2=O;for T=lito 88;if @(T)=2Z=Z+1 
Suace as ieee (32) xB;&(2)=As&(3)=A 470 mext TRCY=-1Sjprint "#1=",#2,Z;print "#2 
+ =" #2 ,S-Z 
30 for Z=ito 87step 2:box @,0,2,Z,3;next Z;Cc 482 goto 122 
490 CY=1;print "HMM.."3F=0;T=2;H=-3;for 2=11 


Clear sfor Z=@to 100;6(Z)=Qjnext Z;T=13fo 





r Z=1to Ssfor W=lto 8:@(Zx10+W)=3inext Winext aie 
Z eer 
60 M=13@(44)=13@(55) =13@(54) =2:@(45) =2 7 
70 R=65;for Z=-28to 28step 8;for Y=-38to 38s >)" 
tep 76;CX=Z3CY=V; TV=R; CX=Y3 CY= Liprint #1,73- oo 
yrext YeReR+linent 2 ia 
}80 for X=-32to 32step Bybox X,0,1,64,1;box @ 94? 
X,64,1,1pnext X;for L=44to SSsA=@(L)sif ACSI >A 
$ A>@gosub 2 ae 
90 next L3S=4 side 
100 if S=d4goto 20 S82 
110 if M=1lif Q=QM=2;R=1;goto 492 570 
120 if M=2if Q<2M=1:R=2:goto 490 600 
130 2=O;if TR(M)goto 130 628 
140 CY=9;print #1,M,"2_", int 
150 Z=Z+9X(M)sif Z<1Z=@;Y=Osprint "@O"sgoto °° 
180 
140 Y=Y+JdY(M)3if Y>8Y=8 
161 if Z>8Z=8 
162 if Y<2Y=1 
122 





to 88;if @(Z)=Mgoto 252 


* te. emi 


Vol 6 No U/1Z 










































mext Zsif H=-3T=1;CY=13print #1,R,"__00" 
Sjfor Z=1to 15sMU=61;nmext ZsNT=O:if Q=1M= 


if H=-3goto 322 

goto 620 

G=0;K=L+103 J=L—-Kxi@sif 

if (K=1)+(K=8) G=G6+1 

if (J=2)+(J=7) G=G6-1 

if (K=2)+(K=7)G=6-1 

if G<Hreturn 

if G>H_H=G;F=L; goto 400 

if rnd (2)=1F=-L 

return 

@(F)=M3 S=S+13A=M3 l=Fe10;K=F-1x10;CY= i3pr 
#1,R,' in, 3; 1V= 1444) print #1,9-K;L=F 

sosub 2;Z=L3T=1;goto 250 


(J=1)+(J=8) G=G+1 


@ 14 K. FABRIS 








DS 


Oct BI, (FE¥ 


























ok 


LOWERCASE = 1-BYTE KEYPAL WORDS. 
= SPACES. 1552 CHARACTERS 


UNDERSCORES 


3 clear $X%(38)=03(39)=0 

4 T=200;T=3;NT=8;S=363 BC=1763FC=101 sCX=H5CY= 
-Fsprint “KONCENTRATION", sCX=H3CY=16;NT=0 

9 print °EASY=1°;CX=Hsprint °HARI=2°sCX=Hsin 
put °1_OR_2>°G3NT=83 8(9)=255 

6 for I=1to 3éstep 25k(I)=rnd (26)4+64;k(I+1) 

=k(I)snext Isfor I=1to 36 

7 Atrnd (36) 5X(0=K(A) SK(AD=EK(I) KCI) =K(0) gn 

ext I 

8 A=rnd (36)3B=ernd (36);if AtBif K(A)=K(B)_* 
(A)=365K(B)=363 box 090,159 »Fy23goto 10 

9 goto 8 

10 BC=rnd (32)x83FC=rnd (32)x8-3;for Y=-28to 
35step 16;MU=Y;MU=142;for X=-63to 80step 16; 

MU=X box XyVeilS,l5_yl 

15 bDOX XsVo9 oF eDenext Xsnext YsMU=60;NU=53 5M 

U=44;MU=35;E=1 

20 for Y=-28to 35step 16;for X=-43to 80step 

16;CX=X5CY=Ysif G=lif D=3TV=x(E) 

30 if D=1CX=X-3 

40 if D=1lif E<1Oprint #0,0;E, 

50 if T=lif E>9print #0,E, 

140 E=E+1lsnext X3next Y;MU=160;MU=1405MU=136 


ARCADIONE: 





Vor 6, Ab UWiz 


400 CX=-46;CY=32;C=Bygosub Ksif K(A)=36if x( 
B)=3égoto N 

405 if *(A)=3égoto 0 

410 if *(B)=3égoto 0 

420 if K(A)=K(B)goto 3020 

900 CX=-60;CY=-Fsprint °NO_MATCH’, sNT=203g0s 
ub L 

902 if S<3CX=-60;CY=-Fsgosub J3NT=Osprint °G 
AME_OVER_PULL_TR(1)°,sgoto J+@ 

505 if T=1T=2;gosub 250;goto 510 

507 T=1;gosub 250 

S10 if TR(T)goto 300 

315 if S=0goto 502 

520 goto 510 

1000 print °MATCH!!°,5NT=503MU=603 MU=33 5 MU=3 
PINT=S;SE=13for Y=-28to 3Sstep 14;for X=-43to 


80step 163CX=X;CY=Y 





















1010 MU=X;MU=Y;if E=A_C=AsS=S-13goto P 

1020 if E=B_C=H;S=S-1sgoto PF 

1090 E=Etisnext Xjnext Yereturn 

2200 print #0,C,°=",3TV=K(C) s return 
2300 box XeV¥el5~15,23TV=K(C)ZK(C)=O3 goto 109 
0 

2400 for I=ito 3;MU=2415MU=216;MU=2053next I 
sreturn 


3000 =K(T4+37)=%(T437)4164 
3010 =&(T4+37)=*(T437)4164 





































yMU=12 

170 a TR(1)goto T 3020 (T+37)=#(T437)+K(A)4K(B) 

180 MU=50$;MU=39$MU=44$goto 170 3030 CX=25;CY=Fsif Mprint °1>°;CX=25;print ° 
200 D=1$T=507$M=1$goto 10 2>" 5M=0 

250 NT=O03CX=12;CY=-Fsif T=1print "PLAYER_1°, 3040 CX=F;CY=Fsprint #1,%(38);CX=Fsprint #1, 


*(39) 
3050 
4000 
rn 
9000 


yreturn 
255 print "PLAYER_2°,;return 


300 gosub JpNT=03CX=-70;CY=Fsinput “box 1°A$ 
CX=-46;CY=F sC=Asgosub KsCX=-70;CY=32Zsinput °"b 


CX=-30;CY=-F3gosub Qsgosub 250s3goto 510 
box -Fy36y81,1é,23bOx O9-Fyl59,% p23 reiu 


if TR(1)run 


ox 2°B 

350 if A=K_CX=-69;CY=-Fyprint ‘box 2_=_box 1 5010 goto J+Q 
-NO!_NO!°,3NT=5Osgosub Libox 0,-Fy159,9,23got 

o 300 


SET THESE VARIABLES BEFORE SAVING TO TAFE 
F=40 H=-39 J=4000 K=2200 L=2400 N=3000 
0=3010 P=2300 @=1000 


ROG S"1S-S4 SEK 


16 
20 
76 
71 
166 
126 
136 
148 
144 
158 


CLEAR ;NT=8;8C=158;FC=9 
-“CLOCK’ S.KENDALL 5/19/84 
CY=3G;INPUT "| ENTER HR & MIN"A,B 
CLEAR 
BOX 6,4,166,44,2 
FOR H=ATO 24;I1F H=24 A=a 
FOR M=BTO S7;IF M=59 B=O 
FOR S=8TO 59 
CY=18;CX=-34;PRINT "HR MIN 
CY=-165;CX=-34;PRINT #1,H,#2," : 
16@ FOR N=1TO 748;NEXT N;. TIME ADJUS 
178 NEXT S;NEXT M;NEXT H;GOTO 120 
This little program puts a digital ciock on the screen. Change the value of N 
in Line 166 to speed up or slow down the clock. 748 was too slow for rmij 


Arcade. | 123 


SEC" 
",#2,M,#2," 
iT % 


" ,#2,5 
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This month we are exPanding our sale items to caver cassette tape 


CAstracade BASIC required}. Me are offering your choice of these tares 
at the Frice of $3.95 each. Flease.s, when ardering List second and third 
choices. Quantities are limited. and when they are gone they are gone 20 


Place wour order naw! 
The following titles are available: 
Lat gaftuare : 


Candy man -- Secret of Pellucitar o-~ Fuatollah Dart BoardeCrazy Ball 
—— Alien Invasion -- Target-Mind Bender -- Space Sleuth-Fox & The 
Hare -- SD Tic Tac Toe’Mission ImPossible —-- sitar’. Revenge 

Space Quest 2h01-Starbase chbu -— Sink the U-Boat-eAir Grob 


Wavellakere 


Pack Rat -- Callision Course -- Cas 
Bull —-- The Gate Escare -- Characte 
Space-Harse Race -- Whiz Guiz --- Back 
Slot Machine -- Maze Race -- Flying 


of Horror —-- Lookout far the 
nalysis -- Max the Rabot freon 
ammon -- Guitar Course —7 
e . 


Tins Arcade 


Beep-Star Seige -- SPace Gauntlet “Quadran —— VWiperian“crunchier 
Vindicator’ Art Show & Fireworks -- Umega VYalley-Hstra Terror 


Bit Fiddlers 


Galdfish Demo -- Chicken! 


Please robe that the listings under the company headings are seParate 
tapes for $3.95 each 
Flease manera ta make second and third choices when ordering these 


tapfes. The Quantity 1s very limited in same cases 


To 90 along with this months srPecial ta rina the 

Hstrocade BASIC ot the laws low Price a ae a teu 

of oti $4.95 cartridges left we will continue these this month i abel 

the SUPP Lo 1= depleted. You can choose fram the fallowing cartridge: 

ene 3) fazar “Dodaet -- Red Baron-Fanzer Attack --  Hstrea Battle mt 

DasPatch -- SPace Fortress —-- Bas Llo-- Foatball -- Balls Fin 
AE 


eba 
—- Biorhsathn -- BlackJdackyPoker. Please lic scar 
it Possible when ardering these carter. does. ees nd me nies spree 
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Pe bargains we are oa 
f $3.95 each. We al 


fPe 
20 








ABC How svcaart 


Vo UR A STROCAOE Source 


This month we find ourselves in a Position to affer Hstrocade Arcade nits at 
avers favorable Price. We need to move these units tast. We decided that if 


we Were to succeed in moving these units we had toa offer them at a wersy Law 
Price. We decided that $24.95 would be a favorable Price, so that is what we 


are selling them for. Just think, these would cost less than Hetrocade’ = 
current refair Price--also less than a Pair of hand controllers. These are 
brand new factory warrented units, Coupled with some of our bargain Priced 
games these units would make Great Christmas Presents 





7 ee eee 
Order by mail or bu Phone (no Phone calls on Wednesday Please I need at 


least one day off a weeks. We accept Master Card. VISA, Personal checks, 
Money orders: or we can send the order C.O.D.Cexcert to Canada3. We can 
shiP the order UPS or Farcel Fost. Please include $1.50 Per order ta 
cover the shiPPing casts. Let us be your one stoP source for Astrocade 
information and Products. ; 


We recret ta say the aur stocks of the fine Sneaky Snake cartridge by Hew 
Image are dePleted. The cartridge is row aut af Production€at least for 
the Present timed. We will let you know if and when we Purchase same 
more of this cartridge. 


We are alsa looking to Furchase exis 
cartridges. If you have some to sell Fle: 
have and an estimate of how much you want ¢ 
together and work soamethina aut, 


ler inventories of 
send us a list of what you 
r them. Maybe we can get 


This being the last issue of this volume, we would like ta thank all at 
the fellow arcadians whoa have suPpPorted us through the years. We would 
also like to remind you that we will continue toa supPort the Astrocade as 
lond as there are still Fearle in search of new games. We will continue 
to Publish aur exc.usive Astroacade Under round newsletter whenever ther 
iz anything new ta rePart--vust let us know and we wilt send you the 
latest edition at no cast to you. 


AS Cort ral lexs § 54.95 /epair He 


a 
t 
2 


ABC HOBBYCRAFT-2155 E. Morgan flve.-Evansville IN-4?F11-Ce12) 477-2881 


since 1946 
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Vo. G6 Noe {i 


= SPACES. 


4 D2 
BY R&L 


goto 24288 
XY=O;line X,Y,3 
if Y_XY=@;line X,-Y,3 


if Xif Y_XY=@;line -X,-Y,3 


if X_XY=@;line -X,Y,3 
return 
CALL28@@2 
CALL2@@02 

if TR(1)=@return 
&(9) 244 
K=8701;CALL20020 
clear 

NT=-13v 

&(10)=176 

NT=1 

gosub 2000 

STOP 

for X=3to 79step 2 
box 0,0,X,xX,3 

next X 

goto 72 

for Y=79to 3step -2 
box 0,8,Y+Y-1,Y,3 
next Y 

goto 78 

for Y=@to 4@step 10 
for X=Sto 7Sstep 18 
gosud 20 

next X 

next Y 

goto 72 

for Y=8to 39 
X=78-2xY 

gosub 28 

next Y 

goto 78 

return 

for X=@to 79 


1118 Y=39-X#2 


gosub 22 
next X 


1148 goto 72 

1300 X=79 

1312 for Y=@to 42 
1320 gosub 20 
13308 next Y 

1340 goto 78 

15@2 return 

1708 Y=42 

1718 for X=@to 79 
172@ gosub 28 
1730 next X 

1748 goto 78 
F=21024;G=19494; H=@0; return 
F=20303; G=21328; H=333 return 
F=13313;G=12868; H=@@;return 
F=16706;G6=19532: H=89; return 
F=21313;G=21076;H=79:return 
F=16706;G=187713H=673return 
F=179523G=20053; H=323 return 
F=167113G=177413H=83; return 
F=21837;G=187713H=67sreturn 
F=22305; G=223513;H=333return 
F=177363 G=195323 H=793return 
F=16928; G=177533 H=32; return 
2288 for Z=1to 32767 




























































22108 
2228 
2238 
2248 
2258 
2268 
2278 
2288 
2298 
2388 
2399 
24228 
2418 
2420 
2438 
2448 
2450 
2468 
2478 
24808 
2498 
2582 
2518 
2520 
2538 
2542 
2558 
2568 
2578 
2588 
2598 
2628 
2618 
2638 
26428 
2650 
2668 


ARCODIANK 


LOWERCASE = 1-BYTE KEYPAD WORDS. UNDERSCORES 
1189 CHARACTERS 


W=Z+12 

gosub 2038+RMx 18 
W=Z#2 

if RM=@gosub 222 
for V=3to 17step 2 
W=Z+V 

if RM=@gosub Vx10@ 


next 
next 
goto 


V 
Zz 
2288 


» SET-UP_SECTION: 

if @(1)=84693goto 2450 
for R=8to 87 

print R, 

input ""@(R) 


next 


R 


clear 


NT=-13y 
&(9) 244 


& (18) 


=172 


A=-43; B=1845; C=-22499 
D=200.12;E=-13871 
gosub 28208 

CALL20002 

for R=@to- 87 
%(2xR+19824) =@(R) 
FC=Rx 8-696 


next 


R 


J=8691;K=19824 
L=-27102;M=-1202 


N=201 


CALL28002 
CALL28822 
& (9) =28 


goto 


2228 


@¢> ARRAYS 


@(@)=-6715 
@(1)=8693 
@(2)=19998 
@(3)=-4892 
@(4)=7387 
@(5) =-25429 
@(6)=3855 
@(7)=3855 
@(8) =20284 
@(9) =-28298 
@(1@)=11127 
@(11)=12517 
@(12)=-2887 
@(13)=-14722 
@(14)=30472 
@(15)=58 
@(16)=-3762 
@(17) =-24473 
@(18) 21824 
@(19) =20538 
@(208) =12878 
@(21) #19975 
@(22)=4015 
@(23) =3855 

@ (24) =28431 
@(25) =-14724 
@(26) =-24491 
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@(27)=1824 
@(28) =21050 
@(29) =12878 
@ (30) =19976 
@(31)=-19925 
@(32)=3122 
@(33)=31822 
@(34)=21974 
@(35) =8352 
@(36)=14855 
@(37)=20046 
@(38)=2354 
@(39) =-20658 
@(40) =3855 
@(41)=3855 
@(42) =2846 
@(43) =-7858 
@(44) =32485 
@(45) =-767 
@(46)=11263 
@(47) =2423 
@(48) =16582 
@(49)=11127 
@(5) =2423 
@(51)=-32579 
@(52)=11127 
@(53)=2423 
@(54) =-16184 
@(55)=11127 
@(56) =2423 
@(57)=6145 
@(58) =-4856 
@(59) =-7749 
@(40)=7994 
@(61)=-14770 
@(42)=12408 
@(63)=15878 
@(44) =332 
@(65)=-8 
@(46) =12809 
@(47) =19999 
@(48) =4051 
@(69) =2817 
@(70) =-4856 
@(71) =-3653 
@(72) =-15903 
@(73) =-13829 
@(74)=30451 
@(75) 264 
@(76) =0 
@(77)=1 
@(78) 29 
@(79) =Q 
@(82) =0 
@(81)=0 
@(82)=0 
@(83) =a 
@(84) =2 
@(85) =9 
@(86) =-256 
@(87)=19456 


The first step of this colorful 
display program will ask you to 
load the array. 


Oct 32.1% St 
Re Elommaert 
2901 Willens Dr. 
Northlake, IL 60164 












 Ocx Bl tGe¢ 








LOWERCASE = 1-BYTE KEYFAL WORDS. UNDERSCORES 
= SPACES, 2001 CHARACTERS 

1 S_NT=1l3clear $BC=1253Z=0;F=15U=0;0=0;goto 
150 


__10_box 0,40,150,7,2$if F=1CX=8;CY=40 
~_id_if F=2CX=-65$CY=40 


ee beeps 


int "#°,#1,Fy,sif (O=18)+(U=18)print °_ 


WINS’; STOF 
do FF 
__14_pr 
__1S_re 
__20_H=83V=-4053 X=03 Y=0 


_28_bo 
“30_if 


Z=lprint "_SHOOTS"sqoto 15 
int "_HIDES 
turn 


nf HeVe29203 


JX(F)=-1LH=H-753X=X-1pif X<OX=0 








1000_for A=-70to -Sstep 


con 


1010_for B=-40to 33step 
1020_box AsByd97 el 

1025 _box A+7B,B;y4,7)3 
1030_next B 

1040_next A 

1045_if P=3goto 1210 
1050_gosub 10 

1065_for F=ito 18 
1070_if P=lgoto 50 


Vou 6 No It/iz 





















32_if H<8H=8 1073_if P=2goto 20 
~_35_if IX(F)=1H=Ht7$X=Xt1$if XP9X=9 1075 _CX=H3CY=V 
__36_if H=71H=714 1078_if PX(CX,CY+2)=0goto 1070 
__37_if JY(F)=-1V=U-83Y=Y-1;if Y<OY=0 1080_if F<éprint "A',sA=1;E=A 
__38_if Vi-40V=-40 1090_if FeSif Fe1Oprint "BR", $R=2;E=K 
~"39_if JY(P)S1VEVEBSY=Y41$iF YO9Y=9 1100_if Fr9if Fel4print "I", $D=3sE=0 
__40_if V>32Y=32 1110_if FOigif F<i7print "C",$C=4sE=cC 
42 box HyV—p2y293 1120_if Foiéif F<i9print °S",$S=5sE=S 
“"43_if Z=lif TR(F)goto 1260 1122_if P=1@(F)=Xx1L00+FYx1OFE 
__44_if Z#1lif TR(F) goto 1075 1125_if P=2@(F+20)=Xx1004YM1LO+FE 
__45_gota 28 1130 next F 
__5O_H=-70;V=-405X=0; Y=0 1200_P=F4+1;clear s;goto 1000 
__52_boOx HpVy 2,23 1210_Z=1sgosub 100;gosub 10 
__54 if JX(F)=-1H=H-73X=X-1s;if X<OxX=0 1220_if P=1for K=41to 43 
__gu_if H&-70H=-70 1230_if P=2for K=44to 46 
56 if JX(P)S1H=Ht7$X=Xt1sif X>9X=9 1240_if F=igoto 20 
__57_if H=-7H=-7 1250_if P=2goto 50 
U8 if JY(F)=-1V=V-8;Y=Y-1sif Y“OY=0 1260_CX=H;CY=Vjprint "x", 
“"59_if Ve-40V=~-40 1265_@(K)=Xx100+Yx10 
60 if JY(P=IVEVEBSY=VtL Sif Yo9Y=9 1270_next K 
OL if V>32VeE32 , ~1280_i° P=ifor K=41to 43 
__68_box HyVy2y2y3 1290_if P=2for K=44to 46 
__69_if Z#1if TR(F) goto 1075 1300_if P=1for F=21to 38 
_70_if Z=lif TR(F) goto 1260 1310_if P=2for F=ito 18 
__72_goto 52 1315_gosub 300 
100_FSP4+1$if PE2P=1 1320_if @(K)=@(F)410x10gasub 400 
_105_return 1340_NT=1lsnext F 
_150_input "REGULAR_(0)___ALIVANCEI_(1)"W 1350_next K 
_160_clear $goto 1000 1400_goto 1210 
_199_if Welprint "+’,;return 
_200_goto M+200 
_201_print "A*,sreturn BATTLESHIP 


202 print "B’,;return 

203 print "I y;return 

204 print "C’y;return 

205 _print "S",;return 

_300 _H=@(F) 41003 V=RM4103M=RN 
_310_if PHlCX=Hx7+8;CY=Vx38-40 
320 if P=2CX=Hx7-705CY=Vx8-40 
_330_return 
400_NT=—15 8(18)=625 8(19)=295 8(22)=229 
_410_for Q=25to 45 

_420_ &(146)=0 

_430_for R=ito 10 

_440_next Rynext Q 

442 _gosub 199 

_446_for R=1éto 23 

448 8(R)=2553;next BK 

449_for R=ito 300;next BR 
_450_for R=255to 200step -1 
ASL _&(21)=R38(22)=Rynext RK 
_460_for R=léto 23;8(R)=O;next RK 
AGS_if PHif=Ot1;if O=18qgoto 10 
467 _if FeQU=Ut1 if U=1egoto 10 
_470_return 
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qs je Fa bres 





FOR SALE Bally Arcade units, brand new with two controllers and AstroBasic $50. + 
p10. shipping. Used controllers $15. each. CARTRIDGES: Pindall, Dogpatch, Amazing Maze 
Astrodap, Letter Match, Acey D., Speed Math, Pasic, Galactic Inv. at $7.50 each + 34. 
shipping. US Money Orders only. Allow 3 weeks delivery. J.Capra, 232 Edgewood Ave , 
Thornwood, NY 10594 

FOR SALS- CARTRIDGES at greatly reduced prices: Basic 3 9.95; Wizard and Art-Duel 3 
4.95; Space Fort, Pirates Chase, Bally Pin & 3.95, Please include $1. for shipping. 

J. Santhoff, PSC Hox 3597 APO SF CA 96264 : 
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NOTICE: I GAVE UP ON THE ADD-UNDER!! ALL MY BALLY “STUFF” FOR SALE; 

2 NEW ARCADES W/AB&2 CONTROLLERS @ $50.00 EA. * 

ALSO MY BALLY SYSTEM INCL: BB W/INTERFACE,AB,4 CONTROLLERS&4NEW CORDS, 
ALL ISSUES OF CURSOR & ARCADIANS (STARTING 11/06/78):,PEEK&POKE MANUAL, 
COMPUTER EAR(SPEECH RECOGNITION-ANDERSON RESEARCH),L&M LIGHT SHOW, 
TAPE RECCRDCR/PLAYER,AND 16 TAPES CONTAINING OVER 200 PROGRAMS. 

ALL MANUALS & DOCUMENTION ARE INCLUDED!!! $425.00 OR BEST OFFER 

BY 12/15/84.... also 30 GAME CARTRIDGES: $6.00 ea.(MOST ARE NEW) INCL: 
2001 , 2002, 2003, 2004, 2005, 2009, 2011, 2012, 2014, 2015, 3001 , 3002, 3005, 
4002,5002,. (6004 ©18.00ea). JERRY HEERE 2802 AVON AVE. 

SINKING SPRING,PA. 19608 OR CALL (215) 6785068 6:00 TO MIDNIGHT ( est.) 
OR ANYTIME ON WEEKENDS! ! 
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